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Os montadores sao programas tradutore? 
encarregados de converter os 
programas -fonte, escritos em Assembly 
em programas-objeto, codificados 
em linguagem de maquina. 



Como ja foi dito em artigos destina- 
dos a outros computadores, montar um 
programa em linguagem de maquina, 
calculando os codigos a mao, pode ser 
bem cansativo. Ainda que se saiba de 
cor todos os codigos mnemdnieos e seus 
equivalentes hexadecimais e se esteja fa- 
miliarizado com os modos de endereca- 
mento, o trabalho de tradugao e trans- 
ferencia do programa para o computa- 
dor e sempre tedioso e possivel de erros. 

Ja que computadores sao muito bons 
nesse tipo de trabalho, por que nao usa- 
los para fazer a traducao? De fato, s6 
teriamos a ganhar se fizessemos isso, 
pois o mesnio programa poderia ainda 
ser usado para colocar o programa em 
codigo na mem6ria. 

O programa apresentado neste arti- 
go e bem parecido com o Assembler pa- 
ra o ZX Spectrum. Isto se deve ao fato 
de os dois computadores usarem o mi- 
croprocessador Z-80. 

Constituido em BASIC, esse progra- 
ma e bem mais lento do que os que sao 

feitos em c6digo de maquina (estes 

liltimos podem ser facilmente 

encontrados naslojas espe- 

cializadas). Todavia, ele 



funciona muito bem, embora devamos es- 
perar algum tempo para que programas 
longos sejam montados na memdria. 



ASSEMBLER 



m 



5000 CLS:KEYOFF: LOCATES, 10 : PBIN 
T"Um inatante, por f avdr* : CLEAR 
SOO.LHDFFFrDIM KS (110) ,K (110) ,M 
(110) :HS-"01234567B9ABCDEF":B§- 
"' :GS-"0123456789abcdef " 
5010 DIMT3U0D) .RUOO) ,Z$<100) , 



2(100) 

5020 B(l)-l:FORI-2T09:B(I)-B(T 
1)+B{I-1) :NEXT 

5030 D1MR$(8,4) : FORJ-1T04: FORT- 
1T0B:READR$(I.J) : RS (I , J) =LEFTS ( 
B$(I,0)+" ",4):NEXTI.J 
'5040 DATA 0, 1,2.3, 4, 5, 6. 7, ni z 
nc, c , po ,pe.p,m.0,B, 16, 24, 32, 40 
48, 56, hi , ix, iy, bc.de, hi ,sp, " 
5050 DIMS$(8,2) ,T(1B) .US (18) : FO 
RJ-1T02 : FORI-1T08/J ;READSS (I , •!) 
:S$<I.J)=LEFT$(SSf.I,J)+" " 4 
) :NEXTI,J:F0RJ»1T018:READT(J) .U 
$(J) ;NEXTJ 

5060 DATA b, c , d, e. h, 1 . (hi ) . * b<- 
,de,hl ,sp, 235,de,8.af ,227, (ap) 
6074 2,0,60758, 1,60766, 2,233, {hi 





O que acontecera se houver urn er- 
ro em meu programa-fonte? 

Nosso Assembler e capaz de emi- 
tir mensagens de erro, pois a sua es- 
trutura de programacao permits re- 
conhecer certas falhas no programa 
em Assembly- Alguns comandos, por 
exemplo, s6 trabalham com os regis- 
tros a e hi. Se tentarmos usa-los com 
outros registros, o Assembler dira^: 
"Primeiro operando deve ser a ou hi''. 

Se urn comando nao for reconheci- 
do devido a um erro de digitacao, se- 
remos informados: "Linha nao reco- 
rthecida". A expressao "Deve haver 
dois operandos" significa que deixa- 
mos de digitar um nitmero vital ap6s o 
comando. "Operando incompatfvel" 
indica um uso inadequado do coman- 
do. "Primeiro operando deve ser sina- 
lizador ou bit" significa que um 
operando inadequado foi empregado 
em um comando de desvio ou de atri- 
buicao de bits. 



) ,56809. (ix) ,65001, (iy) .10, (be) 

.26, (de) . 60767. r. 2, (be) ,18, {de) 

, 60 7 51, r. 249, ap, 60 743 ,1,60759,1 

5070 DEFFNB{X,I)=INT(X/B(I+1))- 

INT(X/B(I+2)>*2 

5060 DEFFNXCX,I)=X-B(I+2)*FNB(X 

,I)+B(H-1> 

5090 DEFFNJ(X.I)-INT(X)-B(I+1)* 

1NT{X/B(I + D) 

5100 DEFFNE(IS,JS)-(IS=LEFT3(J3 

,LEN(IS))) 

5110 FQRI=lTO110:flEADKS(I) ,K(I) 

,W(I) :IFNQTFNE£"*",KS(I) )THENNE 

XTI 

5120 DATA Id, 10, 10, Id, 26, 10, Id, 

60767,10. Id, 60759,10, Id, 2, 138,1 

d, 18, 138, Id, 60751, 138, Id, 60743. 

138. Id, 64, 6 j Id, 50, 202, Id, 58, 74, 

Id. 249. 139, Id, 34, 195, Id. 42. 67.1 

d, 60779, 197. Id, 60771, 199, Id, 97, 

165, Id. 64, 54 

5130 DATA adc, 136, 50, adc, 60746, 

3 , add , 128 , 50 , add , 9 , 149 , and , 160 , 

48 , or , 176 , 48 , xor . 168 , 48 , nop, , 

, nub , 144 , 48 , ebc ,152,50, abe ,6073 
8. 3, cp. 184, 48, jp, 130,45. jp,233, 
9, jp. 56809,9, jp, 650 01, 9, IP, 131 , 
49, jr. 96, 45, jr. 88, 41 
5140 DATA call, 132, 45. call, 141, 
41, ret, 201 ,0, djnfc, 74 ,40 , dec, 11 , 
17, dec, 5, 16, inc. 3. 17, inc. 4, 16, p 
ush , 197 . 1 7 . pop ,193,17.di,243.0, 
e 1,251,0, halt, 118,0, ex, 235, 139. 
ex. 8, 15, ex. 2 27. 14 3, exx, 217,0 
5150 DATA ret. 199. 132, rta, 192,5 

,bit,520 32,2 0,defb,-256,40,ccf , 
63 , , acf . 55 , . cpl . 47 , , cpd , 6084 



l.O.cpdr, 60857, O.cpi ,6083 3,0,cp 
i r. 60849, Q.daa, 39,0, in, 60 742 ,8 , 
io,60758 ,8 , in, 60 766, 6 
5160 DATA in, 60736, 130, in, 149, 4 
2, ind, 6084 8,0, indr ,60810,0, ini , 
60840,0, ini r, 60850, O.ldd, 60840, 
0, lddr, 60856, 0,ldi. 608 32,0, Id ir 
, 60848, O.neg, 60 740, O.otdr ,606 59 
,0,otir. 60851,0, out, 60 737, 2. out 
, 14 1.1 7 0, outd, 60843,0. out l ,6083 

5.0 

5170 DATA rea. 52096, 20, reti ,607 

49.0.retn.60 741.0,rl.51984,64,r 

la.23,0,rlc,51968,16,rlca.7,0,r 

ld,6078 3.0,rr,51992,64,rra,31.0 

T rrc,51976,16,rrca,15,0,rrd,607 

75,0 

5160 DATA set, 52160. 20, ala, 5200 
0, 16, era. 52006, 16, ar 1,52024. 16. 
defv, -256,41 

5190 DATA "*",0.0:II-I:KU10)-r 
7 

5200 CLSrPRINTTAB (15) "ASSEMBLER 
":LOCATE10,5:PRINTTAB(10) "(c) 
Ler na fita caaset.e" : PRINT :PRIN 
,TTAB{10) " (g) Gravar na fita":P 
'RINT:PRINTTAB(10) " (e) Edicao" 
5210 PRINT :PRINTTAB( 10) " (in) Mo 
ntar":PRINT:PRINTTAB(10) "(a) A 
pagar linha" ; PRINT; PRINTTAB (10) 
"(1) Liotar" : PRINT:PRINTTAB (10 
)-(a) Saida" 

5220 AS=INKEVS:IFA$=""THEN5220 
5230 JJ"INSTR("cqeiiialB",A$) 
5240 IFJJ=OTHENPRINT"<"A$"> 7?? 
?" : FORJ=lTO500 :NEXT:GOTO5200 
5250 CLSrONJJGOSUB10420, 10450,1 
0490,5 290,10710,10760,10900 
5260 PRINT :PRINT"Qualquer tecla 

para continuar" 
5270 A3 = INKEY$:IFAS'=""THEN5270 
5280 G0TO5200 
5290 FORG-lTO100:R(G)-G-l:NEXTG 

:Fh-100 

5300 KO-0:K9=99:PO-0:W"0 

5310 K-K0:P-P0 
5320 GOSUB800O 

5330 GOSUB7000:O$-IS:IFLEFTS(O$ 
,1)-"*" THENPRlNTOS; :GOTO5320 
5340 IFOS-"end"THENPRINT: PRINT" 
FIM. Endereco final - ";P-1 
5350 IFO3-'end"THENP0-P: RETURN 
5370 lFOSO"org"THEN5400 
5380 GOSUB7000 .'S-0 : IFLEFT$ (IS , 1 
) -"*"THENS-P : IS-R-IGHTS (IS , LEN (I 

9)-D 

5390 P-VAL (IS) +S: PRINT" org 

■ jp! :GOTO5320 

5400 IFP-OTHENPRINT" (falta org 

) ■ :P-tHE00O 

5410 PS-O3+-!":F0RI-l+18*ABS(0$ 

<>"ld")TO110:IFO3<-K3(I)ANDP$>K 

$(I)THEN5500 

5420 NEXTI:PRINT09 

5430 IFLEFT3(I3,1)-*."THENI3-RI 

GHT$US,LEN(I5>-1> 

5440 GOSUB9000:GG-R{G) 

5450 IFAB3 (GG) <- 100T8ENS-9GN (2 ( 

GG)) :B«INT(ABS{Z(GG}) 765536!) :R 

-ABS(Z(GG) )-B*65536! :Q-PEEK(R)+ 

256*PEEK(R+1) : POKER , FNJ (P*S+0. 8 

): PRINT" colocando " ; FN J(P*S+Q 

,B)i" em *:R:IFBTHENPOKE(R+l) ,F 



NJ( {P*S+OJ/256,8) : PRINT" coloca- 
ndo *;FNJ((P*S+Q)/256.8) ;" em " 
;R+1 

5460 IFABS(GG)O100THENGH«R{GG) 
: R (GG ) -FH : FH-GG : GG-GH : GOT054 50 
5470 IFIS-""THENR(G)-P+100:GOTO 
5330 

5480 PRINT" (Linha nao reconhec 
ida) " 

5490 GOTOS4 20 
5500 Z-0:R-0:E-0:PRINT" ";OS 

5510 OP-K(I) :IFM(I)-OTHEN609Q 

5520 GOSUB7000:A$-IS: PRINT' " ;A 

$', 

5530 M=M(I) :OP»K(I) :B=FNB(M,0) : 

B7-B+2*FNB(K,7)+1:Z-0:IFFNJ(M,3 

) <2THENC$-A$ : GOT05720 

5540 FORJ-lTOLEN£AS) : IFMID3 (A$ , 

J,1)-","THEN5580 

5550 NEXTJiIF0S-"rBt"0R03-"rta" 

THEN5580 

5560 IFFNE(OS.KS(I+l))THENI-I+l 

•.GOTO5530 

5570 PRINT" (Bio neceaaarioB do 

is operandos) " :GOTO5320 

5580 BS-LEFTS(A3,J"1) :C3-RIGHTS 

(AS, LEN (A3) -J) 

5590 IFFNB(M,2)THEN5650 

5600 IFFNB(M,7)THENDS-C$:CS-BS: 

B3-D3 

5610 IFBS-MIDSCahl'.B+l.B-t-DTH 

ENS 7 20 

5620 IFBS=" (c) "AND(OS-"in"0R0S= 

"out")THEN5720 

5630 IF(FNE(OS.K$(I+l)))AND(FNJ 

(M(I+1) ,3)>-2)THENI-I+l:GOT055 3 



5640 PRINT" (primeiro operando 

deve aer a ou hi) " : GOT05320 

5650 IFFNB(M,1)THEN5690 

5660 E$-LEFT$(BS+" ',4):F0RJ- 

1T08 : IFE3-R3 ( J . B7 ) THENOP=OP+8* ( 

J-l) *ABS (B7<C4)+L6* (J-6) *ABS (B7 = 

4) *ABS ( J>3) : Z« ( J-l) *ABS (B7-4) *A 

BS(J<-3) :GOTO5710 

5670 NEXTJ:IFPS>KS(I+1)AND(FN J 

(M(I+1> ,3)>-2)THENI-I+l:GOT0553 



5680 PRINT" {primeiro operando 

deve Ber sinaliaador ou bit)":G 

OTO5320 

5690 IFFNB(M, 7)THEND$-CS:C$-B$: 

BS"DS:GOTO5660 

5700 X-B:GOSUB5750:IFETHEN5730 

5710 IFCS-""THEN6090 

5720 X=l+15*B+7*ABS{OP<-6ANDOP> 

-4GRB3="(c)") :BS-CS:GOSUB 5750: 

IFABS ( {E-0 ) "NOTE) THEN6090 

5730 IFE-20RP$>K3(I+1)ANDFNJ(M( 

1+1) ,3)-FNJ{FNX(M,0) ,3)THENE=0: 

1=1+1 :GOTO5530 

5740 GOTO5320 

5750 R-0:IFFNB(M,4)ANDFNE (LEFTS 

( " ( * , ABS { ( B-0 ) *NOTB > ) , BS ) THENZ2 

-ABS (FNE ( " ix" , RIGHTS {BS , LEN (BS) 

+B-D+" "))+2*ABS{FNE("iy-.RIGH 

TS(B3,LEN{BS)+B-1)+" ")):IFZ2TH 

ENZ-Z2 : ES-LEFTS (B3 . LEN (BS) -AB3 ( 

(B-0)*NOTB)) ;BS-MID3("(hl)",l+B 

,4-2*B) : F3-"0"+RIGBTS (E$ , LEN (ES 

)+B-3) 

5760 IFFNB(M,3)THEN5790 



5770 E$-LEFTS(BS+" ",4):FORJ«' 

1T08/(B+1) :IFES-S$(J,B+l)THENOP 

-OP+(J-l)*X: RETURN 

5760 9QTO5B10 

5790 J2-9+9*ABS(0$-"ld") :FORJ«J 

2-BTOJ2 : IFK (I) <>T ( J) THEN581Q 

5800 IFFNE<B$,U$( J)} THENRETURN 

5810 NEXTJ:IFBS-"af"THENIFFNE(" 

p" , OS) THENOP-OP+48 : RETURN 

5820 IFFNB(M F 6)ANDFNE(" t",BS)TH 

ENB$-MID$<BS.2,LEN(B$)-2) :GOT05 

860 

5830 IFFNB(M,5)THENOP=FNX(OP+6* 

ABS((B-0)*NOT B) ,6) :GOT05860 

5840 IFPS>K${I+1)THENE-2lRETUHN 

5850 PRINT" (operando incompati 

v*l) ":E»1:RETURN 

5860 R-65536! 

5870 S-l 

5880 IFB$-""THEN6080 

5890 XS=LEFTS{BS,1> :D$=RIGHTS (B 

$ , LEN <B$) -1) : IFXS="*"THENR*R+P* 

S:BS=DS:GOT05870 

5900 IFXS-"+"THENB$-DS:GOT05880 

5910 IFX$=»-"THENB$=D3:S=-S:GOT 

05880 

5920 IFX$-" ' "THENR=R+ASC (DS) *S: 

BS=RIGHTS(DS.LEN(D$)-1) :G0TO587 



5930 Q-0:IFXSO"t"ORDS<"0"OBD$> 

«"2"THEN5960 

5940 IFD$>-"0"ANDDS<"2"THENQ-Q* 

2+ASC(DS) -48:DS«=RIGHT$(DS.LEN(D 

S3-1) :GOTO5940 

5950 R-R+Q*S:BS=DS:GOTO5870 

5960 IFXS<>*S"ORDS<"0"ORDS>="g" 

THEN6000 

5970 XS-CHRS(ASC(D$) ) :FOBG-0TOl 

5 : IFXSOMID$ ( HS . G+l , 1 ) ANDX$OMI 

DS (GS . G+l , 1 ) THEN5990 

5980 Q=Q*16+G:DS-RIGHTS(D$,LEN< 

D3)-l) :GOTO5970 

5990 NEXTG:R=R+Q*S:BS-DS:G0TQ58 

70 

6000 IFXS<"a"ORX3>"z"THEN6040 

6010 IS = BS:G0SUB9000:IFI3O""TH 

EN6010:GOSUB9400 

6020 IFR(G)O23000ANDABS{R(G))> 

100THENR-R+(R(G)-100)*S:B$=I$:G 

OTO5870 

6030 IFR(G)-23000ORABS(R(G)]<-l 

OOTHENGH-R(FH) :R(FH)=R(G) :R(G) = 

FH : FH=GH : Z (R (G) ) = (P+SGN (OP) +ABS 

(ABS (OP) >255)+2*ABS(Z>0) +65536! 

*ABS{ ( (ABS(BOBFNB(M,6) )O0) *1)A 

ND(OSO"jr") ) )*S:BS-IS:GOTO5870 

6040 IFX$<"0"ORX3>"9*THENR-0:GO 

TO6070 

6050 IFBS>-"0"AND6S<":"THENQ-Q* 

10+ASC <BS) -48 : BS-RIGHTS (BS . LEN < 

BS)-1) ;GOTO6050 

6060 R=R+S*Q:GOTO5870 

6070 PRINT" (enderecaaento invA 

1 ido) " 

6080 R-R-(P+2)*ABS{OS-"djnz"ORO 

$-"jr") : RETURN 

6090 PRINTTA8U6) j : BY-P/256 :GOS 

UB619D: BY=P:GOSUB6190:GOSUB616 



6100 IF2THENBY=189+Z*32:GOSUB61 

80:GOSUB6160 

6110 IFOP>-0THENB¥-OP/256:GOSUB 

6170 : GOSUB6150 : BY-OP :GOSUB6180 



6120 IFR=QTHEN5320 

6130 GOSUB6160:BY=R:GOSUB6180 :I 

F{ABS (B0RFNB(M,6) )O0)ANDGSO*J 

r"THENBY=R/256:GOSUB 61B0 

6140 GOTO5320 

6150 IFZOOANDBYOOANDABSttB^O) 

*NOTB)OOTHENGOSUB6260:BY«VAL(F 

$) :GOSUB6180:Z=0 

6160 PRINT" ";:RETURN 

6170 JFINT(BY)O0THENRETURN 

6180 BY=FNJ{BY,8) : POKEP ', BY : P = P+ 

1 

6190 BY=FNJ (BY. 8) :PRINTMIDS (HS. 

]+INT(BY/16) ,1) ;MIDS(HS,FNJ(BY, 

4J+1.1) ; 

6 ZOO RETURN 

7000 IFK>NTHENIS= "end" : RETURN 

7010 K1-K9+1:IFK9>=LEN(T$(K) ) TH 

ENI$="/faltando/" :BETURN 

7020 K9=K1:IFMID5(T3(K) ,K1.1)=" 

"THEN7010 
70 30 IFK9>LENCTS(K))THENIS=RIGH 
TS (TS (K) ,LEN(TS(K) )-Kl+l) :RETUR 
N 

7040 IFMIDS(TSCK) ,K9.1)<>* "THE 
NK9=K9+1 : GOTO7030 
7050 I$=MIDS(TS(K) ,KI,K9-K1) : RE 
TURN 

8000 IFK>OTHENtFRIGHT$(T${K) ,LE 
N (TS (K) ) -K9+1) >TS (99JTHENPRINTR 
IGHTS(TSCK) , LEN(T$(K))-K9+1) ; 
8010 K=K+1:K9=0 
8020 PRINT:RETURN 
9000 XS = "" 

90)0 IFIS<"a"ORIS>"z"THEN9O30 
9020 XS=XS+LEFTS(IS,D :IS-RIGBT 
S (IS. LEN (13) -1) :GQT09Q10 
9030 JFISO" "THENRETURN 
9400 F0BG-1T0VV:IFFNE{X$, 23(G)) 
THENRETURN 

9410 NEXTGrVV-W+l:ZS(W}«X$:G- 
VV:R(G)-23000 
9420 RETURN 

10420 CLS: LOCATED, 10; PRINT" Pom 
Clone a fita, presaione qualque 
r tec la e aperte PLAY no grav 
ador" 

10430 US-INKE¥$:IFU$-""THEN1043 


10440 OPEN"CAS:ASM"FORINPUTASil 
:CLS:LOCATE6,10 : PRINT'Carregand 
o prograraa f onte" : INPUT|1 .N : FOR 
J-lTON:LINEINPUTtl.TS{J) :NEXT:C 
LOSE#l : RETURN 

10450 CLS: LOCATED, 10 iPRINT-Poai 
Clone a fita, aperte RECORD no 

gravador e presaione qualqu 
er tecla" 

10460 U$-INKEYS:IFU3-""THEN1046 


10470 OPEN"CAS:ASM" FOROUTPUTASi 
1 : CLS : LOCATE 7 , 10 ! PRINT"Gravando 

programa fonts" : PRINTI1 ,N: FORJ 
-1TONtPRINT#1,TS(J) '.NEXT: CLOSE* 
1 : RETURN 

10490 PRINT"Qual o mlnero da li 
nha (multiple de 10)"; 
10500 INPUTK:CLS 

10510 K2«K/10:IFK2>NTHENK2-N+1: 
N-N+1:TS(K2)-"" 
10520 IFK2<.1THENK2=-1 
10530 IFK2=INT(K2)THEN10550 
10540 K2-INT(K2)+l:FORK3=NTOK2- 



1STEP-1:TS(K3+1)-TS(K3) :NEXT:N=" 

N+1:TS(K2)-"" 

10550 P1-887:P0-P1 

10560 LOCATED, 21 :PRINTK: TAB (6) T 

S<K2)+STRINGS<10,32) ; :P9-P0+LEN 

(TS(K2)> 

10570 IFPKP0THENP1-PQ 

10580 IFP1>P9THENP1-P1-1 

10590 yPOKEBASE(0)+Pl-1.32:VPOK 

EBASE(0)+P1,195 

10600 P7-0:AS-INKEYS:IFAS-""THE 

N10600 

10610 IFAS»CHRS(13)THEN10700 

10615 IFAS-CHRS (27) THENRETURN 

10620 IFAS-CHRS (28) THENVPOKEBAS 

E(Q)+Pl,32:Pl=Pl+l:GOTO105B0 

10630 IFAS-CHRS (29) THENVPOKEBAS 

E(0)+P1,32:P1-P1~1:GOT010570 

10640 IFAS-CHRS (30) THENAS-"" : GO 

T010670 

10650 IFAS-CHRS (31) THENAS-" "+M 

IDS(TS(K2) .Pl-PO + 1,1) :P7 — l:GOT 

010670 

10660 IFAS<" "THEN10600 

10670 IFP1-P0+1>LEN(TS(K2) )THEN 

TS CK2) "LEFTS <T$ (K2> . P1-P0) +A5 :G 

OTO10690 

106B0 T3(K2) -LEFTS (TS(K2) ,P1-P0 

)+A3+RIGHTS(T$(K2) , LEN {TS (K2) ) - 

P1+P0-1) 

10690 P1=P1-(LEN(AS)>0)+P7:GOTO 

10560 

10700 LOCATED, 24: PRINT :K-K+10:G 

OTO10510 

10 710 IFN=0THENCLS: PRINT" Nada 

a apagar" [RETURN 

10720 CLS:PRINT"Qual o nihnero d 

a linha (multiple de 10)"; 




COMO ENCONTRAR ERROS EM 
PROGRAMAS LONGOS 

O erro mais comum em programas 
como o desta li9§o consiste em deixar 
de digitar urn segmento de linha DATA 
(nisso tambein o MSX se assemelha ao 
ZX Spectrum). Assim, quando surge a 
mensagem "OUT OF DATA", deve- 
mos averiguar o que esta" faltando nas 
linhas DATA. Ate mesmo a falta de 
uma vfrgula causae^ problemas. Se o 
seu Assembler nao funcionar na primei- 
ra vez, nSo se preocupe: o MSX pos- 
sui uma funipao de rastreamento {trace) 
que o ajudara a encorurar os erros, 

Para ativa-la, digits TRON no modo 
imediato, sem numero de linha. Depois 
rode o programs usando RUN. O nume- 
ro da linha BASIC que estiver sendo 
executada nesse momento aparecera 
na tela. Esse recurso toma mais facil 
a detec^ao de erros nos programas 
mais longos. 

A furnpao e desativada pelo coman- 
do TROFF. 




II II 



10730 INPUTK:K2-K/10 
10740 IFK2>NORK2<10RK2<>INT(K2) 
THENPRINT"Eata linha nio exists 
' : RETURN 

10750 K-K2:FOR K3-K2 TO N:T${K3 
) =TS (K3+1) : NEXT: N=N-1: LOCATE 0, 
10 : PRINT K*10:" " ;TS (K) : RETURN 
10760 IFN-OTHENPRINT" Nada a li 
star" : RETURN 

10770 PBINT'Quaifl oa numeros da 
pnmeira e da ultima linh 
a (BUltiploa de 10)"; 
1O780 INPUTK.K2 :K=INT(K) :K2-INT 
(K2) :K1-K/10:K2-K2/10 
10790 IFK2>NTHENK2=N 
10800 IFKK1THENK1-1 
10810 IFK2<K1ANDK2-NTHENRETURN 
10820 IFK2<KlTHENCL8:PBINT"Ni3me 
ros de hnha inval idos" :GOTO10 7 
70 

10B30 CLS:F0RK3=K1T0K2:PRINTK3* 
10;' ";T$(K3> :NEXT 
10840 RETURN 
10900 END 

Os espacos em branco foram elimi- 
nados de modo a diminuir a quantida- 
de de memdria ocupada pelo programa. 
Algumas linhas — 5450 e 5750, por 
exemplo — sao quase do tamanho mi- 
ximo permitido pelo compuiador; as- 
sim, qualquer espaco adicional pode 
fazer com que a porcao final dessas li- 
nhas seja fgnorada. 

As linhas 5030, 5050, 5390, 5500 
apresentam, cada uma, quatro caracle- 
res em branco entre as aspas; as linhas 
5660 e 5770, tres; e as linhas 10750 e 
10830, dois. 



C0M0 FUNCIQNA PROGRAMA 



Antes de montar o programa deve- 
mos proteger uma area de memdria, on- 
de o Assembler colocara os cddigos por 
meio do comando CLEAR. Isso e feito 



na linha 5000, que reserva 500 bytes pa- 
ra os cordoes (strings) e protege a me- 
mdria a partir de E0O0 hexadecimal. 
Mude esse valor conforme as necessida- 
des. Programas grandes podem exigir 
maior espaco de cordoes. 

Depois de digitar, rode o Assembler 



e vera urn menu . Para digitar urn pro- 
grama em Assembly, tecle "e" (nao se 
esqueca de destravar a tecla CAPS, pa- 
ra que o MSX aceite letras mimisculas). 
O computador pedira entao o niimero 
da linha. Cada instrucao deve ser intro- 
duzida em uma linha numerada, seme- 





lhante ao que ocorre no BASIC. E 

preciso que os numeros das tinhas sejam 
multiples de 10; apenas um mnemoni- 
co Assembly com seus operandos pode 
ser imroduzido em cada linha. 

A primeira linha de seu programa de- 
ve ser mais ou menos assim: 




10 org -B192 

-8192 e o endereco inicial do pro- 
grama em c6digo. Obviamente, ele de- 
ve estar na area protegida da mem6ria. 
Se esquecermos de definir org, ou seja, 
a origem, o Assembler colocara o pro- 
grama a partir de DFFF, em hexadeci- 
mal (ou —8192, em decimal). 

O programa aceita os codigos mnc- 
mdnicos padrao do chip Zilog Z-80, 
com excecao dos comandos de retorno 
conditional. O comando de retorno in- 
condicional de sub-rotinas, cujo mne- 
monico e ret, entretanto, funciona em 
nosso Assembler. 

Algumas vezes, porem, podemos uti- 
lizar retornos conditionals, como ret nz, 
que significa "retorne se nao for zero". 
Em nosso caso, use: rts nz (its deve ser 
usado no lugar de ret sempre que preti- 
sarmos empregar retornos condicio- 
nais). Quando se trata de retorno 
incondicional — ou seja, ret nao segui- 
do de nenhuma letra — use o mnemo- 
nico padrao ret. 

No artigo da pagina 213 (Programas 
em Cddigode Mdquina), usamos o mne- 
monieo outir, quando na verdade o pa- 
drao Z-80 e otir. Nosso Assembler aceita 
otir. 

Numeros hexadecirnais devem ser 
precedidos de $. Numeros binarios, de 
%. Qualquer niimero sem nada na f ren- 
te sera interpretado como decimal. 
Qualquer expressao que nao seja um co- 
mando Assembly sera considerada co- 
mo um rotulo (label). Evite usar 
palavras parecidas ou muito longas; nu- 
meros nao sao permit idos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com end. 

Antes de apertar o ENTER para edi- 
tar uma linha pressione as tecias do cur- 
sor. As setas "direita" e "esquerda" 
movem o cursor ao longo da linha; a se- 
ta "para baixo" serve para inserir ca- 
racteres e a seta "para eima", para 
apaga-los. A edicao de linhas e basian- 
te lenta e muitas vezes os caracteres di- 
gitados demoram a aparecer no video. 

Use a tecla ESC para sair do modo 
de edicao. Essa tecla deve substituir o 
comando ENTER, depois que a ultima 
linha tiver sido digitada; caso contrdrio, 
uma linha em branco ser£ incorporada 
ao programa em Assembly. 

De volta ao menu, pressione " 1 " pa- 
ra obter uma listagem do programa em 
Assembly na tela. 

Se houver algum erro na introducao 
do programa-fonte, volte ao menu e 
pressione "e"; forneca entao o niimero 
da linha que deseja mudar. 

Por outro lado, se qutsermos inserir 
uma linha entre duas ja existentes, bas- 



tara digka-la usando um niimero inter- 
mediario, quando no modo de edicao. 
Assim, ao listarmos o programa nova- 
mente, veremos que ele f'oi renumerado 
com a nova linha no lugar certo. Toda- 
via, apenas uma linha pode ser introdu- 
zida dessa maneira de cada vez. 

Para apagar uma linha, e preciso vol- 
tar ao menu, teclar "a", e fornecer o 
niimero da linha que queremos eliminar. 

Quando estivermos satisfeitos com o 
programa Assembly a ser montado 
(programa-fonte), devemos voltar ao 
menu e teclar "m" para que ele seja 
"montado" na memoria. Ao mesmo 
tempo, obteremos uma listagem dos c6- 
digos equivalentes na tela (programa- 
objeto). 

Se a esta altura notarmos um erro em 
alguma das linhas, devemos voltar ao 
menu e editar a linha correspondente. 

Uma vez montado o programa, o en- 
dereco final da rotina em codigo apare- 
cera na tela. 

A opgao degravacao — "g", no me- 
nu — armazena o programa-fonte em 
fita cassete — os mnemonicos, portan- 
to. Para gravar o Assembler, use a via 
normal — CSAVE. 

Para executar o programa em codi- 
go, utilize instrucoes do tipo DEF US- 
RO e A = USRO. Grave o programa- 
objeto, empregando: 

BSAVE "CAS.no«e", enderego 
inicial, n° de bytes 

"Nome" e a denominacao do pro- 
grama-objeto e deve estar entre aspas. 
BSAVE informa ao computador que esta 
sendo gravado um programa em codigo 
e nao em BASIC. O endereco inicial e 
a origem do seu programa na memoria. 
Podemos calcular o niimero de bytes 
subtraindo a origem do endereco final 
e soman do 1. Podemos ainda acrescen- 
tar o endereco inicial para execucao (nao 
mostrado no exemplo). Como esse en- 
dereco e" quase sempre iguai ao endere- 
co inicial, sua inclusao e optional. 



UM TESTE 



Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita que se encontra na 
pagina 215. Uma vez traduzido para c6- 
digo, ele ficara assim: 

II CO E4 21 BF E4 6 IS C5 1A 01 

27 00 ED B8 12 2B IB CI 10 F3 
C9 

Note que devemos usar letras miniis- 
culas para digitar o programa-fonte. 
Nosso Assembler nao reconhecc coman- mm 
dos em maiiisculas. 
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17 CODIGO DC MAQUINA 



GRAFflC© 
1NSTANTA 




Qualquer pessoa com algumas horas 
de experiencia com computadores pode 
criar caiacteres graficos originais para 
usar em jogos. Tudo o que se precisa e 
lapis e papel para esquematizar as ideias, 
alem de duas (ou, no rnaximo, tres) re- 
tinas simples para transformar tais 
ideias em figuras no computador. 

Cada tipo de maquina exige urn me- 
todo particular para a criacao de novos 
padroes de caracteres graficos definidos 
pelo usuario. O tamanho desses carac- 
teres tambem e variavel, O MSX tern 
sprites de 16 por 16 pixels (ou pontos), 
enquanto o Spectrum oferece apenas um 
UDG de 8 por 8 pixels (os compativeis 
com o ZX-81 nao serao tratados aqui). 

No entanto, independentemente do 
que seu computador ofereca, o mais 
conveniente e comecar criando figuras 
de 8 x 8 (tamanho aproximado de um 
"inimigo'* em um jogo espacial). Uma 
vez que voce tenha aprendido a traba- 
Ihar com esse padrao, sera facil criar fi- 
guras maiores, ou mesmo encadear duas 
ou mais pequenas figuras para formar 
uma terceira. 



DO DESENHO PARA BINARIO 



Em alguns computadores, os dados 
necessarios para definir um UDG po- 
dem ser fomecidos diretamente na for- 
ma binaria. Em outros, voce tera que 
converte-los em decimal ou em hexade- 
cimal. Assim, leia primetramente a se- 
cao para sua maquina antes de fazer 
qualquer conversao. No Apple vocS te- 
ra que usar o nosso editor de figuras. 

Os computadores armazenam as in- 
formaedes que Ihes sao dadas em bina- 
rio. Mas voce nao precisa conhecer esse 
sistema numerico para transformar seus 
desenhos em filas de numeros binarios. 
Tudo o que deve fazer para isso e: 

— Utilizar o numero 1 sempre que qui- 
ser obter um ponto. 

— Empregar o numero toda vez que 
quiser um espaco. 



« 



Tomemos como exemplo o padrao 
da cruz de Lorena. A linha do topo & 
compost a de tres espacos, um ponto e 



mais quatro espacos. Em binario, 
00010000. 

A segunda linha £ formada por dois 
espacos, tres pontos e tres espacos: 
001 11000. Todo o padrao pode ser re- 
presentado assim: 



o 
o 
o 

o 










DE BINARIO PARA DECIMAL 



A maneira mais rapida de converter 
binario em decimal e usar a pequena ta- 
bela de nove linhas por oito colunas que 
aprcsentamos a seguir. Na primeira li- 
nha, escreva os numeros 128, 64, 32, 16, 
8, 4, 2, 1 . Nas outras oito coloque os nu- 
meros correspondentes ao grifico que 
voce" quer. Aqui temos, por exemplo, a 
tabela para a cruz de Lorena: 

128 64 32 16 8 4 2 1 
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Para fazer a conversao, ignore os ze- 
ros. Inicialmente, compare os 1 em bi- 
nario com o numero no topo da colu- 
na. Some entao todos os numeros cor- 
respondentes aos 1 da primeira linha. 
Repita essa operacao em todas as linhas. 

No exemplo, a primeira linha contem 
o numero 1 apenas na quarta coluna, 
Portanto, temos 16. 

A segunda linha tern trSs 1 que cor- 
respondem a 32, 16 e 8. Soma: 56. 

Quando o processo de verificacao 
houver terminado, voc£ tera oito nume- 
ros decimals. A declaracao DATA ne- 
cessaria para entrar os dados no com- 
putador ficara assim: 

DATA 16,56,16,124,16,16.16,0 



Voce nao precisa conhecer eodigo de 
maquina nem entender de 
sistema binario para animar seus jogos 
com figuras simples. Leia este 
artigo e veja como e facil fazer isso. 



XJN 




De inicio, voce pode ficar com a im- 
pressao de que esta e uma forma muito 
complicada de fazer o trabalho. No en- 
tanto, depois de meia dtizia de tentati- 
vas, seu ritmo de trabalho se tornara su- 
ficientemente rapido, Alem disso, as 
combinacoes mais comuns, como 255 
(ou 11111111 em binario), serao logo 
memorizadas, poupando-as da necessi- 
dade de fazer calculos para chegar ao 
sistema decimal. 



DE BINARIO PARA HEXADECIMAL 



Converter mimeros binarios em he- 
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TRANSFORME DESENHOS EM 



FILAS DE NUMEROS BINARIOS 




CONVERSOESDE BINARIO PARA 
DECIMAL "E PARA HEXADECIMAL 
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xadecimais e ainda mais facil. Para is- 
so, basta aplicar a tabela a seguir, nao 
sendo necessario nem mesmo escrever 
nela os numeros binarios: 



i 
i 

> 


1 


Binario 

0000 

0001 


Hexadecimal 



l 




0010 


2 


> 


0011 


3 




0100 


4 




0101 


5 


1 


0110 


6 


0111 


7 




1000 


a 




1001 


9 






_ ^__^_ 



1010 A e 0001. Em hexa temos, pela tabela, 1. 

ion B A segunda metade £ 0000. Em hexa, le- 

lioo • — 6 mos 0. Escreva os dois mimeros juntos 

1101 - D eteremos 10, o hexa correspondence ao 

1110 f; binario 00010000. 

De forma similar, na segunda linha 

Desta vez nao ignore os zeros. Para temos 001 1 (que e 3 em hexa) e 1000 (8 

comecar, tome os primeiros quatro di- em hexadecimal). Assim, o numero he- 

gitos do numero binario e procure o sen xadecimal completo e 38. 
equivalente em hexa. Em seguida, faca Repita o processo ate a ultima linha 

o mesmo com os quatro digitos seguin- e tera oito mimeros hexadecimais. A sua 

tes. A reuniao dos dois digitos hexade- declaracao DATA completa ficara co- 

cimais obtidos define o numero que vo- mo segue: 
ce precisa. 

Voltando a cruz de Lorena, a primei- 

ra metade do binario da primeira linha data io, 38, 10.7c, 10,10,10,00 



Alem disso, a liiiica coisa a fazer € di- 
zer ao computador (que nao pode adi- 
vinhar) se o numero que voce esta digi- 
tando e decimal ou hexa. Veja como fa- 
zer isto na secao especifica do seu com- 
putador. 

Evidentemente, e posstvel escrever 
urn pequeno programa para fazer a con- 
versao de bases numericas, mas ele nao 
sera muito util se voce quiser modificar 
aJguma informacao que ja esteja na me- 
moria do computador. 



O TRS-Color aceita DATA em deci- 
mal, hexa ou binario, 

Se os dados (DATA) estao em hexa, 
voce tera que adicionar uma linha extra 
ao programa para converte-los em de- 
cimal (veja a seguir). 




O primeiro programa desenha um pe- 
queno aviao no canto superior esquer- 



do do video. Este pode nao ser o me- 
Ihor lugar para ve-lo; mas e o mais facil 
para comecar, se voce quiser fazer um 
programa para movimema-lo pela tela. 

20 PMODE 4,1 

30 PCLS 

40 SCREEN 1,1 

60 FOB L-0 TO 7 

7 READ US 

80 POKE L*32+1536,VAL("tH"+N$) 

90 NEXT L 

110 GOTO 110 

500 DATA 00.10,18,9C,FF,9C,18,1 



Digite o programa e execute-o. 

PMODE 4,1 foi escolhido na linha 20 
porque s6 se pode produzir graficos 
UDG quando neste modo de resolucao 
grafica mais alta. 

Para limpar a tela sobre a qual vai se 
desenhar, deve-se usar o comando 
PCLS como na Linha 30. Ele se aplica 
nao so ao PMODE 4,1, como a todos 
os modos de alta resolucao. 

Use SCREEN 1,1, como na linha 40, 
para ligar a tela de alta resolucao de for- 
ma a mostrar seu UDG. SCREEN 1,1 
tambem selecionaas cores branca e pre- 
ta. 

O laco FOR... NEXT das linhas 60 e 
90 faz com que a linha 70 seja executa- 
da oito vezes. Toda vez que cncontra 




READ N$, o computador le o dado se- 
guinte da linha DATA de numero 500. 

A linha 80 e importante por duas ra- 
zees. A primeira e que ela faz com que 
o padrao de pontos definido pela linha 
500 apareca no video. A segurtda e que 
ela convene os mimeros hexadecimais 
da linha DATA em decimais e coloca- 
os diretamente na area de memoria que 
controls o que aparece na tela do com- 
putador. 

Finalmente, a linha 1 1 e um laco que 
mantem a alta resolucao. Sem essa linha 
o programa terminaria, provocando o 
retorno automatico para o modo texto; 
em conseqiieneia, voce nao veria o seu 
desenho na tela. 



GRAFICOS UDG MAIS ALTOS 



Voce pode criar um UDG "alto e ma- 
gro", em vez de um 8x8, mudando a li- 
nha 60 e aherando os dados da linha 
500. Em primeiro lugar, modifique a li- 
nha 60 para: 
60 FOR L=0 TO 7 

Em seguida, mude a linha 500 de for- 
ma que fique assim: 

500 DATA OQ,10,lB,9C.FF.9C,16,i 


A alteracao na linha 60 permite a lei- 
tura de um maior niimero de dados da 
linha 500. E esia define a imagem de um 
coelho, usando hexadecimais. Assim, ao 
executar o programa, voce encontrara 
a figura do coelho na tela. 




Esse metodo permite a criacao de gra- 
ficos de qualquer tamanho. Se voce ja 
desenhou a sua figura em papel quadri- 
culado, conte quantas linhas foram usa- 
das. Altere a linha 60 usando o niimero 
de linhas do desenho. A seguir, faca com 
que o numero de informacoes da linha 
DATA corresponda ao numero de vezes 
que o la^o FOR. ..NEXT for executado. 



GRAFICOS UDG MAIS LARGOS 



O desenho de figuras baixas e largas 
(em vez de altas e estreitas) exige urn 
pouco mais de trabalho. 

Comece mudando as linhas 60 e 80 
da seguinte forma: 

60 FOR L-0 TO 7 

80 POKE L*32+1536+F.VAL t"K.H"+NS 

Altere a linha DATA de forma que 

apareca assim; 

500 DATA 0F f 0F,EF,EF F EF. EF.FE.4 
4,FF.FF.FF,FF,FF.FF,40.00.FF,FF 
,FF.FF,FF,FF.66,66 



Finalmente, adicione estas linhas: 



sn for c "=o TO ? 
100 NEXT F 

Quando voce executar o programa, 
vera na tela a figura de urn caminhao de 
carga. 




Como isto funciona? Os 24 trechos 
de informacao da linha 500 fonnam tres 
quadrados de oito pixels de lado. Se os 
dados fossem lidos por urn linico 
FOR... NEXT como antes, o caminhao 
apareceria de forma peculiar, cortado 
em tres pedacos que se amontariam no 
video. Assim, o computador deve ser 
avisado para colocar os biocos [ado a la- 
do. Para fazer isso, urn laco extra alte- 
ra o valor do POKE na linha -80, de for- 
ma que o segundo bloco apareca na li- 
nha do topo, ao lado do primeiro. De- 
pots de ser lido, o terceiro bloco e colo- 
cado ao lado dos outros dois por inter- 
medio do comando POKE, 



MOVIMENTE OS DESENH0S 



Voc£ pode mover a figura do aviso 
pela tela usando estas linhas: 

110 DIM A<3) ,B<3) 

120 GET (0,0)-(7.7) .A,G 

130 PCLS 

140 LET X-127 

150 LET Y-95 

160 PUT <X,Y)-{X+7.Y+7) .A.PSET 

170 LET LX-X 

180 LET LY-Y 

190 IF PEEK (338) -251 AND Y>2 TH 

EN Y-Y-2:GOTO 240 

200 IF PEEK £342) -253 AND Y<182 

THEN Y-Y+2:GOTO 240 

210 IF PEEK (340) -247 AND X>3 TH 




EN X-X-3:GOTO 240 

220 IF PEEKC338)«247 AND X<245 

THEN X-X+3:G0T0 240 

230 GOTO 190 

240 PUT (LX.LY)-(LX+7,LY+7) ,B.P 

SET 

250 GOTO 160 

Quando voce executar este programa, 
a tecta Z movimentara a figura para a 
esquerda; X o fara para a direita; P pa- 
ra cima; e L para baixo. 

O comando GET permite ao compu- 
tador lembrar-se do que esta em um de- 
lerminado ponto da tela, enquanto PUT 
coloca o que foi encontrado em qual- 
quer outro lugar. DIM, por sua vez, re- 
serva espaco na mem6ria para GET. 

As linhas 190 ate 220 verificam se 
una tecla foi pressionada e movem o 
UDG em caso positive. 

Se voce quiser mover o coelho deve 
fazer as seguintes alteracoes: 

110 DIM A<6) ,B(6) 

120 GET (0.0)-(7,23) ,A,G 

160 PUT (X,Y)-(X+7,Y+23) ,A,PSET 

200 IF PEEK(342)-253 AND Y<166 

THEN Y-Y+2:GOTO 240 

240 PUT <LX,LY)-(LX+7,LY+23) ,B, 

PSET 

Para movimentar o caminhao, faca 
estas modificacoes: 



110 DIM A[6) ,B{6) 

120 GET (0,0)-(23.7) ,A,G 

160 PUT CX,Y)-(X+23,Y+7) , A, PSET 

200 IF PEEK(342)-2S3 AND Y<1B2 

THEN Y-Y+2:GOTO 240 

220 IF PEEK(338)-247 AND X<229 

THEN X-X+3:GOT0 240 

240 PUT [LX,LY)-{LX+23,LY+7) ,B, 

PSET 



COMO USAR DADOS EM BINARIO 



Voce pode colocar ntimeros em bina- 
rio nas linhas DATA, se quiser, mas 
certifique-se antes de que cada niimero 
consiste de. um byte de oito bits. Voce 
tera, tambem, que adicionar estas linhas 
ao programa: 

71 LET N-0 

72 FOR J-l TO 8 

74 IF MID${NS,J,1)-"1" THEN N-N 

+2* (8-J) 
76 NEXT J 

80 POKE L»32+1536+*\N 

As novas linhas examinam os bytes 
bit por bit, transformando-os em niime- 
ros decimals. Estes sao, resumidamente, 
equivalentes aos da tabela de conversao 
mostrada na introducao deste artigo. 

A movimentacao de figuras em alt 
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resolucao sera apresentada em detalhes 
num artigo prbximo. 



mts] 




No Apple, entretanto, a geracao de fi- 
guras em aha resolucao nao segue os 
mesmos padroes de outros computado- 
res, sendo muito mais complicada (em ar- 
tigo anterior, publicamos um editor de fi- 
guras moveis que permite aos usuarios 
desse microcomputador utilizarern figu- 
ras compostas por blocos de 8x8 pontos). 

Neste artigo voce podera treinar a uti- 
lizacao do editor de figuras. Os progra- 
mas a seguir so funcionarao se as figu- 
ras correspondentes tiverem sido gera- 
das pelo editor, 

Carregue o programa editor de figu- 
ras no seu eomputador e coloque o de- 
senho do pequeno monstro a seguir em 
linhas DATA usando asteriscos. 



Execute o programa editor e a figu- 
ra sera armazenada na memcVia. Feito 
isso, digite NEW e o seguinte programa: 




Que sistema de numeragao — bin5- 
rio, decimal ou hexa — e melhor usar 
nas linhas DATA? 

Dependendo das caractensticas do 
seu eomputador, pode ser melhor usar 
o sistema binario. AIGm de permitir a 
visualizacao do padrao do desenho, 
evitando contas, o sistema binario pos- 
sibilita alteracoes de pequenas partes 
da figura. 

Se vocS quiser empregar o mesmo 
padrao em outros programas, vale a pe- 
na converter os numeros para decimal 
ou hexa, que sao mais compactos. 

A utilizacao de numeros hexadeci- 
mais vai ajud^-los a se familiarizar com 
esse sistema, que e a base da progra- 
macao em codtgo de maquina. 



10 HOME : HGR 




20 SCALE= 1: H0T= 




30 X - 140:Y - 90 




40 GOTO 200 




50 LX - X:LY = Y: GET 


AS 


60 A - ASC (AS) 




70 IF A - 80 AND Y > 


8 THEN Y 


- Y - 4: GOTO 200 




80 IF A - 76 AND Y < 


150 THEN 


Y = Y + 4: GOTO 200 




90 IF A - 90 AND X > 


8 THEN X 


= X - 4: GOTO 200 




100 IF A = 88 AND X < 270 THEN 


X - X + 4: GOTO 200 




110 GOTO 50 




200 HCOLOR- 




210 DRAW 1 AT LX\LY 




220 HCOLOR= 3 




230 DRAW 1 AT X,Y 




240 GOTO 50 





Nao ha neeessidade de copiar as li- 
nhas DATA geradas pelo programa edi- 
tor. Uma vez criada, a figura permane- 
cera protegida no lopo da memoria ate 
que o eomputador seja desligado, ou ate 
que o programa editor crie outra forma. 
Nem mesmo NEW pode destrui-la. 

O programa movimenta a figura com 
o auxilio das teclas P, L, X e Z. As li- 
nhas 50 a 110 fazem isso da maneira 
usual. 

As linhas de 10 a 40 cuidam das con- 
dicoes iniciais: limpeza e definicao da te- 
la, escala, orientacao e posicao inicial da 
figura. 



As linhas de 200 a 240 apagam o 
monstro de sua ultima posicao, dada 
por LX e LY, e o desenham na nova, 
dada por X e Y. 



DESENHOS MAIS LARGOS 



Desenhos compostos de mais de um 
bloco de 8x8 pontos exigem um cuida- 
do especial com as coordenadas. Esse 
cuidado e necessario para que as figu- 
ras se posicionem de acordo com o pla- 
nejado. Para familiarizar-se com esse U- 
po de desenho, gere os dois blocos que 
compoem o cachorro com o auxilio do 
programa editor. 






Feito isso, digite NEW e carregue o 
programa anterior. Faca as seguintes 
modificacoes para mover o cachorro: 

100 IF A = 88 AND X < 260 THEN 

X - X + 4: GOTO 200 
715 DRAW 2 AT LX + 8,LY 
235 DRAW 2 AT X + 8,Y 

A condicao apos AND na linha 100 
evita que o desenho ultrapasse a maigem 
direita da tela. Ela teve que ser modifica- 
da porquc agora o desenho e mais largo. 

Como a figura tern dois blocos de 8x8 



. 
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pontos, foi necessario colocar duas no- 
vas linhas com comandos DRAW, uma 
para desenhar e outra para apagar o se- 
gundo bloco. 

E importante notar como sao de- 
serthados lado a lado os blocos que 
compoem o cachorro, ou seja, da es- 
querda para a direita, e de cima para 
baixo. Assim, as coordenadas no co- 
mando DRAW se referem ao canto su- 
perior esquerdo de cada bloco. Se o pri- 
meiro bloco esta desenhado nas coorde- 
nadas X, Y, e queremos que o segundo 
seja colocado a sua direita, a posicao 
deste ultimo dcve ser X + 8, Y. Isso acon- 
tece porque o canto superior esquerdo 
do segundo bloco deve ficar na mesma 
linha do canto superior esquerdo do pri- 
meiro (mesma coordenada vertical Y) 
oito pontos mais a direita. 



UMA FIGURA ALTA E MAGRA 



Continuando nosso treino, carregue 
novamente o editor e gere os dois blocos 
que desenham a silhueta de um homem. 




Digite NEW e carregue o programs 
que movimenta o monstro. Faca entao 
as seguintes modificagoes para mover o 
homem. 

80 IF A = 76 AND Y < 140 THEN 

Y = Y + 4: GOTO 200 

215 DRAU 2 AT LX.LY + 6 

235 t>RAW 2 AT X,Y + 8 

Da mesma maneira que no exemplo 
anterior, a condicao na linha 80 teve que 
ser modificada para que o desenho, ago- 
ra mais alto, nao ultrapasse a margem 




interior da tela. 

As linhas 215 e 235 apagam e dese- 
nham, respectivamente, o segundo blo- 
co. Se quisermos coloca-lo abaixo do 
primeiro bloco, teremos que situa-lo na 
mesma coluna, oito pontos mais embai- 
xo. Assim, se a posicao do primeiro blo- 
co lor X, Y, a do segundo devera ser 
X.Y + 8. 



Embora o MSX possua caracteres de- 
Finiveis pelo usuario (com 8x8 pontos, 
como nas outras maquinas), geralmen- 
te e preferivel utilizar os sprites, que sao 
mais versateis e mais adequados a mo- 
vimentacao de figuras. 

Todavia, exist em situacoes em que es- 
ses caracteres podem ser muito liteis. 
Uma aplicacao muito comum e a rede- 
finicao total ou parcial do conjunto de 
caracteres. Isso as vezes e desejavel em 
programas que devem utilizar alfabetos 
estrangeiros ou caracteres graficos dit'e- 
rentes. 

O conjunto de caracteres do MSX e 
muito completo, contendo todo o alfa- 
beto grego e uma infinidade de outros 
caracteres graficos. Falta-lhe, porem, a 
letra £ (com acento grave), utilizada na 
lingua francesa. 

Para criar esse caractere, aplique 
mesmo metodo ja descrito neste artigo. 
A tabeta que se segue traz a codificaeao 
do padrao do caractere desejado, pronta 



para ser colocada em uma linha DATA. 



Binario 


Hex 


Decimal 


00010000 


10 


16 


00001000 


08 


8 


00111100 


3C 


60 


01100110 


66 


102 


01111110 


7E 


126 


01100000 


60 


96 


00111100 


3C 


60 


00000000 


00 







O formato decimal e mais facil de 
usar. Mas mais dificil de calcular. O 
MSX aceita mimeros binarios e hexade- 
cimais, desde que cenos padroes sejam 
respeitados. 

Para incorporar o novo caractere, use 
o programa: 

10 SCREEN 0:KEY OFF 
20 FOR 1-0 TO 959 
30 VPOKE BASE(0)+I,2Q5 
40 NEXT 




50 E-205*8 

60 FORI-E TO E+7 

70 READ BS 

80 VPOKE BASE (2)+I,VAL ("1B"+B$) 

90 NEXT I 

100 FOR 1-1 TO 2000:NEXT I 

110 CLS:END 

500 DATA 00010000 

501 DATA 00001000 

502 DATA 00111100 

503 DATA 01100110 

504 DATA 01111110 

505 DATA 01100000 

506 DATA 00111100 

507 DATA 0000O000 

Ao ser executado o programa, a tela 
e ocupada por um simbolo grafico. Em 
seguida esse simbolo se transforma no 
caractere que procuramos, ou seja, a le- 
tre £ com acento grave. Apds alguns ins- 
t antes, a tela fica novaraente limpa. O 
novo caractere, contudo, continua na 
memdria e pode ser obtido da mesma 
maneira que o simbolo grafico do qual 
tomou o lugar. Para isso, basta pressio- 
nar as teclas GRAPH e "E" ao mesmo 
tempo. O caractere s6 desaparecera da 
memdria quando ulilizarrnos o coman- 
do SCREEN ou quando desligarmos o 
computador. 



ENTENDA PROGRAMA 



A linha 10 escolhe a tela de textos 
com 40 colunas e apaga do rodape da 
tela as teclas de funcao. O laco das li- 




PRQGRAMAS EDITORES 

Crie suas prdprias figuras no Apple 
e no MSX, utilizando os programasedi- 
tores fornecidos por INPUT para estes 
computadores. Eles calcularao os nu- 
meros nas linhas DATA para voce\ 

Lembre-se de que nao serS preciso 
digitar essas linhas. Ambos os compu- 
tadores possuem facilidades de edicao 
que parmitem usar -a pr6pria tela prp- 
duzida pelo editor — uma vez interrom- 
pido o programa — para criar uma linha 
DATA com um niimero alto na frente 
(a partir de 5000). 

No MSX isto 6 feito com as teclas 
do cursor, INS, DEL e ENTER. No Ap- 
ple, com ESC, I, J, K, M. setas e RE- 
TURN. 

No Apple e no TK-2000 pode-se 
gravar a tabela de figuras usando o co- 
mando W do monitor. Quern tiver dis- 
co, pode usar o comando BSAVE. 



nhas 20 a 40 enche a tela com o caracte- 
re de cddigo igual a 205 — correspon- 
dente a GRAPH + E. 

Os pad roes de todo o conjunto de ca- 
racteres estao guardados na VRAM — 
memoria de video — a partir do ende- 
reco dado por BASE (2). Para saber co- 
mo e o formato de um caractere, o com- 
putador multiplica o valor de seu codi- 
go por 8 e soma esse valor ao de BASE 
(2). O niimero que resultar dessa conta 
sera o endereco do primeiro de uma se- 
rie de oito bytes onde ficara armazena- 
da a forma do caractere. 

A linha 50 multiplica por 8 o cddi- 
go do caractere que vai ser modificado, 
para saber onde seu formato esta na 
VRAM. O laco das linhas 70 a 90 colo- 
ca nesse local o padrao do novo carac- 
tere; os niimeros sao lidos com READ 
nas linhas DATA. Na linha 80, VAL 
(&B + BS) permite que sejam utilizados 
numeros binarios. 

A linha 100 retarda o processo ate 
que a linha 110 apague a tela e termine 
o programa. 

Se for preciso economizar espaco, as 
linhas DATA podem ser substituidas 
por uma unica linha. 

500 DATA 00010000,00001000,0011 
1100,01100110,01111110.01100000 
,00111100,00000000 

Essa linha unica, porem, nao permite 
que se visualize claramente o caractere. 

Se quisermos usar numeros hexade- 
cimais, devemos fazer as seguintes mo- 
dificacdes: 

80 VPOKE BASE(2)+I,VALC&.H n +B$) 
500 DATA 10 ,08,3C,66, 7E,60, 3C.0 


Uma linha DATA desse tipo e bem 
mais tacil de ser digitada. 

Para criar o mesmo caractere na tela 
de textos com 32 colunas, faca as seguin- 
tes rnodificacoes; 

20 FOR 1-0 TO 767 

30 VPOKE BASE (5) +1 ,205 

80 VPOKE BASE<7)+I,VAU"LH"+B$) 

Note que a linha DATA deve estar 
em heya. 



O Spectrum aceita dados tanto em bi- 
nario quanto em decimal, mas nao em 
hexa. Para ver como ele trabalha com 
graficos,. digite: 

PRINT (graphics A)" 

Para poder obter o simbolo (graphics 
A), voce devera pressionar <CAPS 
SHIFT > e < GRAPHICS > ao mesmo 



tempo e depois teclar "A". 

O que voce ve parece um A maiiis- 
culo normal. Mas voce pode defini-lo 
como uma forma de 8x8 pontes. 

Para fazer isto, tudo o que voce pre- 
cisa e de um programa de cinco linhas. 
Assim, se voce quiser plantar o pinhei- 
ro da ilustracao, deve digitar as linhas 
a seguir: 

10 FOR n-0 TO 7 
20 READ data 

30 DATA BIN 00010000.BIN 0001 
1000, BIN 00111000, BIN 0Q1111Q 
0.BIN 01111100, BIN 01111110, 
BIN lUllllO.BIN 00010000 
40 POKE USR "a"+n,data 
50 NEXT n 

Esse programa usa um laco 
FOR...NEXT nas linhas 10 e 50 para dar 
entrada as oito linhas do desenho em se- 
qiiencia. A linha 20 diz ao computador 
para ler dados na linha DATA e a linha 
40 coloca esses dados na memoria do 
computador, usando o comando POKE. 

Execute o programa e digite: 

PRINT " (graphics A)" 






Voce vera que o "A" desapareceu e 
em seu lugar aparece um pinheiro. Se 
voce digitar NEW agora, o programa se- 
ra apagado da memoria, mas o desenho 
ficara na memdria ate que o computa- 
dor seja desligado. Assim, voce - pode 
move-lo pela tela ou usa-lo para efeitos 
decorativos como se ele fosse um carac- 
tere qualquer. Tente este exemplo: 

5 CLS 
10 FOR y-3 TO 19 
20 LET x-INT (RND*20)+5 
30 PRINT AT y,x; INK 4;*{grap 
hies A) " 

40 LET XX-INT (RND*20)+5 
50 PRINT AT y,xx; INK 2:"{gra 
phica A) " 
60 NEXT V 

Esses pinheiros poderiam ser usados 
como obstaeulos para um jogo de esqui. 



DESENHE UM NAVI0 



Quando voce quiser criar graficos 
maiores que 8x8, desenhe dois ou mais 
blocos de 8x8. 

O programa a seguir, por exemplo, 
cria a proa de um destrdier (que voce po- 
de colocar em um de seus jogos, usan- 
do as tecnicas apresentadas em Progra- 
magao de Jogos): 



10 FOR n-0 TO 7 
20 READ a 

30 DATA BIN O.BIN , BIN O.BIN 
00000111.BIN 00000011.BIN 111 
11111, BIN OOOOO011.BIN llllll 
11, BIN 01111111, BIN 00111111 
40 POKE USR "a"+n.a 
50 NEXT n 

Dois aspectos devem ser ressaltados. 
Primeiro: voce pode usar BIN se a li- 
nha inteira for vazia. Segundo: coloque 
na linha 20 uma variavel simples "a" em 
lugar de "data", que foi inserida no 
programa anterior para que este ficasse 
mais compreensivel. Poderia ser qual- 
quer outra coisa, como "b", "c" ou 
"x", ou mesmo "maria"; mas para is- 
so deveria ser utilizada uma variavel 
identica na Sinha 40. 

Quando voce for entrar os dados pa- 
ra as outras duas partes do navio, nao 
havera necessidade de redigitar o progra- 
ma todo. Depois de executa-lo a primei- 
ra vez, e com o primeiro grafieo na me- 
moria, mude a linha 40 para USR "b", 
por exemplo. Mude tambem a linha 30 
de modo que ela passe a conter os no- 
vos dados das outras partes do navio. 





Tome cuidado para que as suas linhas 
DATA tenham sempre oito dados, mes- 
mo que estes sejam apenas zeros. Um 
mimero menor de linhas provocara um 
erro do tipo: E Out of DATA, 20: 1 . Co- 
loque linhas a mais e voce descobrira 
que seu navio esta afundando. 

Finalmente, para entrar os dados em 
decimal, converta os bin&rios de acor- 
do com o metodo ja descrito; a seguir, 
coloque-os na linha DATA omitindo a 
palavra BIN. A linha 30 do programa 
do destroier ficara assim: 

30 DATA 0,0,0,7,3.255,127,63 



E AGORA. 



HWaDE] 



Uma vez compreendidos os prinei"- 
pios gerais, voce pode colocar no com- 
putador qualquer um dos graficos des- 
ta pagina. Depois de ter feito uns tres 
deles, voce vera que ja tern pratica sufi- 
ciente para criar os seus pr6prios dese- 
nhos e coloca-los no computador. 
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DEARIE 



Voce nao precisa ser um Rafael ou 
mesmo um Pablo Picasso para desenhar 
com desenvoltura. Devidamente progra- 
mado, seu computador pode se transfor- 
mar em uma poderosa ferramenta de de- 
senho, capacitando-o a realizar traba- 
lhos graficos de boa qualidade com li- 
berdade igual (ou ate maior) que a de 
um artista que trabalha apenas com ma- 
terial convencional: lapis e papel. 

Na indiistria, a combinacao de pro- 
gramas de Desenho Auxiliado por Com- 
putador (conhecido pela sigla CAD, da 
expressao em lingua inglesa Computer 
Aided Design) com computadores de 
grande porte permite nao so a execucao 
de desenhos de objetos com muita rique- 
za de detalhes como tambem a stmula- 
cao de situacoes em que tais objetos sao 
submetidos a acao de determinados fa- 
tores como carga, vento, vibracao ou 
variacoes termicas. Essas tecnicas extra- 
polam a capacidade do micro dom^sti- 
co, visto que exigem o processamento de 
um volume muito grande de dados, as- 
sim como uma capacidade grafica alta- 
mente desenvoivida, para que se possa 
produzir imagens de varios anguios do 
objeto em estudo, 

Freqiientemente, no entanto, o dese- 
nhista necessita apenas estudar um de- 
talhe ou a aparencia geraJ do objeto. 
Nestes casos, o CAD se torna uma fer- 
ramenta capaz de substituir lapis e pa- 
pel na execucao de desenhos t^cnicos, 
permitindo o tracado preciso de curvas, 
linhas retas e figuras geometrieas, com 
a vantagem da possibilidade de correcao 
instantanea. 



VANTAGENS DO PROGRAMA 



O CAD pode ser aplicado aos com- 
putadores domesticos, seja para explo- 
rar o aspecto tecnico do desenho, seja 
para produzir belas formas. Mas, ape- 
sar de quase todos os micros existentes 
no mercado brasileiro (com excecao das 
linhas Apple e TRS-80) ja apreserttarem 
comandos para desenhar formas ele- 
mentares dentro do BASIC, e sempre 
necessario um longo programa para se 
construir formas mais sofisticadas. 
Exemplos de como isto e feito ja foram 
apresentados em artigos anteriores. 



A beleza do programa editor de de- 
senhos consiste em que, uma vez na me- 
moria do computador, ele possibilita a 
criacao de imagens ate o limite grafico 
da maquina, sem que seja necessario ela- 
borar novos programas. Alem disso, ele 
coloca todos os comandos para graficos 
sob o controle direto do teclado; dessa 
forma, tudo o que se tern a fazer e es- 
colher uma opcao ou mover o cursor 
usando as teclas apropriadas. Esse re- 
curso oferece, em alguns casos, possi- 
bilidades que nao sao encontradas no 
BASIC padrao do computador. 

Como as habilidades graficas dos di- 
versos micros variarn muito, existem 
grandes diferengas entre os programas, 
esquematizados para explorar ao maxi- 
mo as vantagens e minimizar as fraque- 
zas do computador ao qual estao desti- 
nados. Os Spectrum, por exemplo, po- 
dem mostrar facilmente texto e graficos 
na mesma tela, o que e impossivel nos 
micros das linhas Apple e TRS-Color. 
Por outro lado, estes podem guardax de- 
senhos que nao estao a vista, enquanto 
oMSX, por exemplo, nao pode. 

Devido a limitada capacidade grafi- 
ca do ZX-81, nao apresentaremos pro- 
grama para esse micro. O programa pa- 
ra o Sinclair Spectrum rodara somente 
em maquinas com um minimo de 48K. 



AUXILIO AO DESENHO 



Apesar das diferencas, os programas 
funcionam de forma semelhante: o 
usuario e apresentado a um menu (ou 
lista) de opcoes de desenho, que ofere- 
ce formas como linhas, elipses, circulos 
ou retangulos. Ao selecionar uma delas, 
voce pode construir formas muito inte- 
ressantes, usando as teclas de controle 
do cursor para posiciona-Io na tela; as 
linhas resultantes serao precisas e regu- 
lares. E se um erro for cometido, alguns 
computadores I he darao a oportunida- 
de de correcao. 

Voce encontrara tambem a opcao de 
mudar a cor com que desenha ou, em 
alguns casos, de colorir uma determina- 
da area. Quando terminar, pode esco- 
Iher entre apagar tudo e recomecar ou 
gravar a imagem de forma que ela pos- 
sa ser recolocada na tela, mais tarde. Is- 



Mesmo nao sendo um Leonardo da Vinci, 
voce pode realizar belos 
desenhos com a ajuda do computador. 
Para isso, basta executar o 
programa apresentado nesta licao. 




to Ihe possibilitara tambem carregar na 
memoria (e alt era-lo) um desenho de seu 
agrado que nao tenha sido montado por 
este programa. 



EXECUTE PROGRAMA 



As diterencas entre as diversas ma- 
quinas serao explicadas nos blocos es- 
pecificos. Em todos os casos, o progra- 
ma aparece dividido em duas partes: 
nesta licao trataremos da primeira (de- 
senhos com linhas simples); a segunda 
parte, com variacSes mais sofisticadas, 
sera abordada no prdximo artigo. 



Um menu e o cursor serao mostrados 



a 

c 
a 
u 

b 
d 
I 

rj 
I; 
n 
a 

n 
u 

P 
s 

ti 
a 



nun 
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DESENHE COM A AJUDA DO 



COMPUTADOR 



COMOESTENDER OSCOMANDOS 



GRAFICOS JA EXISTENTES 
COMO USAR PROG RAMA 



APRENDA A DESENHAR A 



MAO LIVRE 



COMOOBTERMAIORPRECISAO 



USANDOAOPCAO"LINHA'^ 
APRENDA A USAR CORES 




na tela, assim que o programa for exe- 
cutado. Para selecionar urn item do me- 
nu, coloque o cursor a sua esquerda, 
usando as teclas Q (para cima), A (para 
baixo), O (para a esquerda) e P (para a 
direita). Em seguida, pressione < EN- 
TER > para fazer a escolha; o video se- 
ra apagado, deixando o cursor numa te- 
la vazia. Voce podera, a qualquer mu- 
mento, retornar ao menu (ou deixa-lo) 
apenas pressionando < ENTER >. 

A primeira opcao do menu e "Dese- 
nhar", que coloca pontes na tela. Para 
usar essa opcao, posicione o cursor no 
ponto em que voce deseja iniciar o de- 
senho e pressione a barra de espacos. Ao 
ser movimentado, o cursor detxara uma 
trilha de pontos. O movimento pode ser 
acelerado pressionando-se a tecla 
< SHIFT > juntamente com a tecla que 
controls a direcao do deslocamento. Pa- 



ra terminar a linha desenhada, acione a 
barra de espacos novamente, o que Ihe 
permitira mover o cursor sem marcar a 
tela ou retornar ao menu para selecio- 
nar outra opcao. 

A opcao "Linha" funciona de for- 
ma semelhante a anterior. A diferenga 
e que a linha obtida e cheia: pressione 
< ENTER > para seleciona-la e tecle a 
barra de espacos para desenhar e nova- 
mente para terminar. A opcao selecio- 
nada permanecera disponivel ate que 
uma nova seja escolhida. Dessa forma, 
pode-se ir ate outro ponto e iniciar uma 
nova linha, e assim por diante. 

Existem duas opcoes que lhe perrni- 
tem colorir a tela; "Fundo", para pin- 
tar a moldura e o fundo e "Tinta", pa- 
ra colorir a medida que se desenha. Se- 
lecionada uma dessas alternatives, uma 
mensagem sera mostrada para que vo- 



ce escolha as cores. O cursor lhe mos- 
trara a cor em uso, de forma que se po- 
dera ver o efeito instantaneamente. 

Depois de ter respondido a todas as 
questSes, o programa volta ao desenho, 
com o cursor no local onde foi deixa- 
do. Pode-se fazer a opcao "Tinta" an- 
tes ou enquanto se desenha. Somente 
apds se ter deixado a opcao de desenho 
(ao pressionar a barra de espacos pela 
segunda vez) e que a linha sera fixada. 

Atencao, o programa contem eddigo 
de maquina, de forma que deve ser gra- 
vado (SAVE) antes de se executar 
(RUN). 

10 BORDER 4: PAPER 7; INK 0: 
OVER 0: CLS 

20 POKE 23658,0: LET OP-1 
40 DIM 0(12): FOR N-l TO 12: 
READ O(N): NEXT N: LET x-127: 

LET y-87 
60 LET xl-x: LET yl-y 
65 LET xx-0; LET yy-0 
70 FOR n-65366 TO 65368+73: 
READ a: POKE n,a: NEXT n 
100 RAND USR 65380 
1020 PRINT INK 9;AT 2,9;" 



1030 PRINT INK 9;AT 3,9;" 

SENHAR 

1040 PRINT INK 9;AT 4,9;" 

NHA 

1050 PRINT INK 9;AT 5,9;" 

NDO 

1060 PRINT INK 9 ; AT 6,9:" 

NTA 

1070 PRINT INK 9;AT 7,9;" 

TANGULO * 

1080 PRINT INK 9 ; AT 8,9;" 

IXA 

1090 PRINT INK 9;AT 9,9;" 

RCULO 

1100 PRINT INK 9;AT 10,9 

PAGAR 

1110 PRINT INK 9;AT 11,9 

OPS 

1115 PRINT INK 9;AT 12,9 

OPIAR 

1120 PRINT INK 9;AT 13,9 

ARREGAR 

113G PRINT INK 9;AT 14,9 

RAVAR 

1140 PRINT INK 9;AT 15,9 



DE 

LI 

FU 

TI 

RE 

CA 

CI 

A 

O 

C 

C 

G 



1150 PLOT 72.48: DRAW INK 9; 11 
1,0: DRAW INK 9; 0,111: DRAW I 
NK 9; -111,0: DRAW INK 9; 0,-111 
1155 FOR n-l TO 100: NEXT n 
1160 PRINT INVERSE 1; PAPER 9;. 




Desenhos a Iracos, coma 0$ mostrados na tela do Spectrum. 



podern ser realizados facilmenle com o programa desle artigo. 



IF 



AT OP+2, 10 ; ">" 

1170 PAUSE 0: LET AS'INKEYS: 

AS-"" THEN GOTO 1170 
1175 IF AS-CHRS 13 AND 0P-9 THE 
N RAND USR 65404 : 
68: GOTO 1000 
1180 IF AS-CHRS 13 THEN 
SB 65392: RAND USR 65368; 
•1 TO 100: NEXT n: 
1190 PRINT AT OP+2, 
1200 IF A$-"a" THEN 



RA 



116 



RAND USR 65 3 

RAND U 
FOR n 
GOTO O(OP) 
,10;" ■ 

LET OP-OP+ 
1: IF OP-13 THEN LET OP-12 
1210 IF AS-'q" THEN LET OP-OP- 
1: IF OP-0 THEN LET OP-1 
1220 GOTO 1160 
2000 REM deaenhar 
2005 FOR n-1 TO 50; NEXT n 
2010 GOSUB 8000 
2060 IF INKEYS-CHRS 13 THEN 
ND USR 65380: GOTO 1000 
2070 IF INKEYSOCHRS 32 THEN 
OTO 2010 

2080 FOR n-1 TO 50: NEXT n 
2090 GOSUB 8000: PLOT x,y 
2095 IF INKEYS-CHRS 13 THEN 
ND USR 65360: GOTO 1000 
2100 IF INKEYS-CHRS ,2 THEN 
TO 2005 

2110 GOTO 2090 
2500 REM linha 
2505 FOR n-1 TO 50: NEXT n 
2510 GOSUB 8000 
2515 IF INKEYS-CHRS 13 THEN 
ND USR 65380: GOTO 1000 
2520 IF INKEYSOCHRS 32 THEN G 
OTO 2510 

2525 FOR n-1 TO 50: NEXT n 
2530 LET xx-0: LET yy-0 : LET hx 
-x: LET hy-y 

2540 GOSUB 8000: PLOT hx,hy: 
AW OVER l;xx,yy: FOR n-1 TO 

NEXT n: PLOT hx.hy: DRAW OVER 

1 ; xx , yy 
2550 IF INKEYSOCHRS 32 THEN G 
OTO 2540 
2560 PLOT hx,hy: 
TO 2500 

3000 REM fundo e 
3010 PRINT #1;AT 



RA 



GO 



RA 



DR 
5: 



DRAW xx , yy : GO 



borda 

0.0; "Cor de fu 



ndo (0 a 7)?" 

3015 LET aS=INKEYS 

3020 IF aS<"0" OR aS>"7" THEN 

GOTO 3015 

3030 POKE 65535, VAL aS*8 

3035 RAND USR 65416 

3 040 FOR n-1 TO 50: NEXT n 

3050 PRINT #1:AT , ; "Cor da bo 

rda (0 a 7)?" 

3060 LET aS-INKEY$ 

3070 IF a$<"0" OR aS>"7" THEN 

GOTO 3060 

3080 BORDER VAL a$ 

3090 PRINT H;AT 0,0;" " ; TAB 31 

;" ";TAB 31;" " 

3095 RAND USR 65416: RAND USR 6 

5380: GOTO 1000 

3500 REM tinta 

3510 PRINT *1;AT 0, ; "Selecione 

tinta (0 a 75" 
3520 LET aS-INKEYS: IF a$<"0" O 
R aS>"7" THEN GOTO 3520 
3530 INK VAL aS 

3540 PRINT tl;AT 0,0;" " ; TAB 31 
;" ": GOTO 1000 
7500 GOTO 1000 
8000 REM rotina INKEYS 
8005 PLOT OVER lsx.y 
8010 LET AS-INKEYS 
8020 IF A$-"q" AND y<175 THEN 
LET yl-y+1; LET yy-yy+1 
8030 IF AS-"a" AND y>0 THEN LE 
T yl-y-1: LET yy-yy-1 
8040 IF AS-"P" AND x<255 THEN 
LET xl-X+1 ; LET XX-XX+1 
8050 IF AS="o" AND X>0 THEN LE 
T xl-x-1: LET xx-xx-1 
8060 IF AS="Q" AND y<172 THEN 
LET yl-y+4: LET yy-yy+4 
8070 IF aS-"A" AND y>3 THEN LE 
T yl-y-4: LET yy-yy-4 
8080 IF aS-"P" AND x<252 THEN 
LET xl-X+4: LET XX-XX+4 
8090 IF aS="0" AND x>3 THEN LE 
T xl-X-4: LET xx-XX-4 
8095 PLOT OVER l;x.y 
8100 LET X-Xl : LET y-yl : RETURN 

9000 DATA 2000.2500.3000,3500,4 



000 .4020 . 5000 . 5500 , , 6000 . 7000 , 

7500 

9010 DATA 17,0,64.33.80.195,1,0 

,27. 237, 176, 201. 17. 80, 195. 11,0, 

64,1,0,27,237,176.201 

9020 DATA 17,168.222,33,80,195, 

1,0,27,237,176,201,17.80.195,33 

,168.222,1,0,27,237,176,201 

9030 DATA 33,0,88,6,4,197,6.176 

,20 3,158.2 03.166,203,174.58.255 

,255,134,119,35,16,24 2,193,16,2 

36,201 



O programa comeca mostrando um 
submenu, que permite escolher valores 
para o modo, tela e cor. Use as setas pa- 
ra mover o cursor e a barra de espacos 
para fazer a selecao. 

Depois de escolher os valores apro- 
priados, pressiione < ENTER > para ter 
o menu principal. Para acessar as op- 
coes, posicione o cursor (usando as se- 
tas) ao lado do numero do item e pres- 
sione a barra de espacos. Isso propor- 
dona a limpeza da tela, deixando-a com 
o cursor pronto para desenhar. Para re- 
tornar ao menu a qualquer momento, 
pressione < ENTER >. 

A primeira opcao do menu principal 
e "Mudar a tela", que da acesso ao sub- 
menu. A opcao seguinte e "Desenhar", 
usada para desenhar a mao livre, como 
se fazcom um lapis. Quando seleciona- 
da, essa opcao permite mover o cursor 
ate o ponto escolhido para dar comeco 
ao desenho; enquanto a barra de espa- 
cos for mantida pressionada, uma linha 
permanecera na tela. Para interromper 
o desenho, basta solla-la. Pode-se ace- 
lerar o movimento pressionando-se 
< CLEAR > . Observe que isso s6 fun- 
ciona quando nao se desenha. 
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Na priivima licao, voce vera como udkionar cor an desenho.. 



... como nestes exemplos moslrados na tela do TRS-Cotor. 



Em qualquer das opcoes dc desenho, 
pode-se mudar de cor pressionando-se 
urn niimero entre e 8: isto Ihe forne- 
eera a cor correspondence que consta do 
seu manual. Para sair de "Desenhar" 
pressione < ENTER > , voltando ao me- 
nu principal . 

A opcao "Tracar Linha" permite de- 
senhar linhas retas. Selecione a opcao 
com as setas, desloque o cursor ate o 
ponto onde deseja iniciar o desenho e 
pressione a barra de espacos. Escolha 
entao a cor (niimeros de a 8). A cor 
do cursor depende da cor de fundo, mas 
nao afeta a cor da linha. Mova o cursor 
ate o ponto onde deseja terminar a li- 
nha e acione a barra de espacos para 
desenha-la. Pressione < ENTER > pa- 
ra voltar ao menu principal. Tecle 
< CLEAR > para deixar o programa. 

10 PCLEAR 8 

20 CLS:PA«239:PB=223:PC-247:PD- 

191:PE-183 

30 DIM SCU228) ,CP(614) 

40 DEFFNR(Z)=SQRC<XS-X)MXS-X) + 

(YS-Y)MYS-Y)) 

50 MD--1 :ST--l:OP-l:CL-l:X-127: 

Y-95 

60 GOTO 80 

70 FOR K-l TO 1500: NEXT 

80 GOSUB 1000 

90 IF MD<0 THEN PRINT ©449, "err 

o NAO FOI DEFINIDO MODO GR 

AFICO":GOTO 70 

100 IF ST<0 THEN PRINT 6449. "er 

ro NAO FOI DEFINIDO TIPO DE T 

ELA":GOTO 70 

110 OT-1: PMODE MD, 1 

120 CLS: PRINT §7, "MENU PRINCIPA 

L" 

130 PRINT §103. "1- MUDAR TELA" ■ 

PRINT §135, "2- DESENHAR" : PRINT 

§167. "3- TRACAR LINHA": PRINT SI 

99. "4- RETANCULO": PRINT §231, "5 

- CAIXA": PRINT §263, "6- CIHCULO 



140 PRINT ©295, "7- DISCO": PRINT 
§327, "8- ELIPSE" : PRINT §359, "9 
- COPIAR" : PRINT #390, "10- PREEN 
CHER": PRINT 6422, "11- ERRO":PHI 
NT §454. "12- GRAVAR/CARREGAH" 
150 POKE 1097+OT*32,128 
160 IF PEEK(341)-PC AND 0T>1 TH 
EN POKE 1097+0T*32,96:OT=0T-l:G 
0T0 150 

170 IF PE£K(342)=PC AND 0T<12 T 
HEN POKE 1097+OT*32,96:OT=OT+1: 
GOTO 150 

180 IF PEEK(345)=PC THEN 200 
190 IF PEEKC339J-PD THEN CLS:EN 
D ELSE 160 

200 IF 0TO11 THEN 220 
210 PMODE MD,5:PUT (0,0) -(255,1 
91 ),SC: GOSUB 50 ; PMODE MD,l:GOT 
O 120 

220 GOSUB 510 
230 GET(0, Q) - (255,191) , SC 
240 EF=0 

250 ON OT GOSUB 1000,2000,3000. 
3000 , 3000 , 3000 . 3000 , 3000 ,4000 , 5 
000,0,6000 
260 GOTO 120 

500 FOR K-l TO 4 : PCOPY K+4 TO K 
: NEXT: RETURN 

510 FOR K-5 TO 8: PCOPY K-4 TO K 
: NEXT : RETUHN 

1000 CLS: PRINT §6 , "preparacao d 
a tela" 

1010 PRINT §102, "1- MODO GRAFIC 
O": PRINT §166, "2- TIPO DE TELA" 
:PRINT §230. "3- LIMPAR TELA" 
1020 PK-PEEK(1062+64*OP) :POKE 1 
062+64*OP,63 AND PK 
1030 IF PEEK(341)-PC AND OP>l T 
HEN POKE 1062+64*0P,PK:OP-OP-l: 
GOTO 1020 

1040 IF PEEK(342)-PC AND OP<3 T 
HEN POKE 1062+64*OP,PK:OP-OP+1: 
GOTO 102 

1050 IF PEEK (338) -PD THEN RETUR 
N 

1060 IF PEEK (345) -PC THEN 1080 
1070 GOTO 1030 

1080 CLS:ON OP GOSUB 1200.1300. 
1400 



1090 FOR K-l TO 200 :NEXT:GOTO 1 

000 

1200 PRINT §33, "QUE MODO GRAFIC 

DESEJA USAR t0~4) ?"; 

1210 AS-INKEY$:IF AS<"0" OR A$> 

"4" THEN 1210 

1220 PRINT A$:MD-VAL(AS) : PMODE 

MD , 1 : RETURN 

1300 IF MD<0 THEN PRINT §449. "e 

rro NAO FOI DEFINIDO MODO G 

RAFICO":FOR K-l TO 1000: NEXT: RE 

TURN 

1310 PRINT §33, "QUE TIPO DE TEL 

A DESEJA USAR (0 OU 1) ?*; 

1320 A$-INKEY$:IF AS<"0" OR A$> 

"1" THEN 1320 

1330 PRINT A$ :ST-VAL (AS >: RETURN 

1400 PRINT §33,"TEM CERTEZA QUE 

QUER LIMPAR A TELA (S/N)?" 
1410 AS=INKEY3rIF ASO'S" AND A 
SO"N" THEN 1410 
1420 IF AS-"N" THEN RETURN 
1430 PRINT §129. "COM QUE COR WO 
CE DESEJA LIMPAR A TELA (0-8)? 

1440 A$-INKEY$:IF AS<"0" OR AS> 

"8" THEN 1440 

1450 PRINT AS: PMODE MD,5:PCLS V 

AL(A$): PMODE MD.1:PCLS VAL(AS): 

RETURN 

1500 FOR K-0 TO 7: IF PEEK(338+K 

)-PA THEN CL-K 

1510 NEXT: IF PEEK (338) -PB THEN 

CL-8 
1520 IF PEEK(338)-PD THEN EF-1: 
RETURN 

1530 DRAW"BM"+STR$(X)+","+STR$( 
Y) +" j C"+STRS ( ( PPOINT (X , Y) +3 ) AND 

7) +*BE4G2BD4NF2BL4NG2BU4H2" : CO 
LOR CL 
1550 IF PEEK (339) -PD THEN DF-10 

ELSE DF-1 
1560 IF PEEK(341)-PC THEN Y-Y-D 
F:GOTO 1610 

1570 IF PEEK(342)-PC THEN Y-Y+D 
F:GOTO 1610 

1580 IF PEEK (343) -PC THEN X-X-D 
F:GOTO 1610 
1590 IF PEEK (344) -PC THEN X-X+D 



417 
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F:GOTO 1610 

1600 RETURN 

1610 X-255 AND X 

1620 IF Y>191 OR Y<0 THEN Y-Y+l 

91»(2*(Y>191)+1) 

1630 GOSUB SCO: RETURN 

2000 SCREEN 1, ST: GOSUB 1500 

2010 IF EF-1 GOSUB 500: RETURN 

2020 IF PEEK(34S)-PC THEN PMODE 

MD.5:PSET(X.Y,CL) : RHODE MD,1:P 
OKE 345.255 
2030 GOTO 2000 
3000 SCREEN l,ST:GOSUB 1500 
3010 IF EF-1 GOSUB 500: RETURN 
3020 IF PEEK(345)OPC THEN 3000 
3030 XS-X:YS-Y 
3040 GOSUB 1500 
3050 GOSUB 500 
3060 IF EF-1 THEN RETURN 
3070 ON OT GOSUB 0,0,3130,3140, 
3140,3150,3150,3160,0,0,0 
3080 IF PEEK(345)-PC THEN 3100 
3090 GOTO 3040 

3100 IF OT-5 THEN LINE (X , Y) - (XS 
,YS) .PSET.BF 

3110 IF OT-7 THEN PAINT (X.Y).C 
L,CL 

3120 GOSUB 510:GOTO 3000 
3130 LINE<XS.YS)-(X.Y) ,PSET:RET 
URN 

3140 LINE(XS.YS)- (X.Y) , PSET , B : R 
ETURN 

3150 CIRCLE (X , Y) .FNRCZ) ,CL:RETU 
RN 

3160 IF XSOX THEN 3190 
3170 IF(2*YS-Y)>191 OR (2*YS-Y) 
<0 THEN RETURN 
3180 LINE (X,Y)-(X,2*YS-Y) ,PSET 

: RETURN 

3190 CIRCLE (XS.YS) ,ABS<X~XS) . CL 

,ABS( £Y-YS) /{X-XS)} : RETURN 

4000 RETURN 

5000 RETURN 

6000 RETURN 



O programa comeca oferecendo a 
possibilidade de trabalhar nas paginas 
1 ou 2 de graficos de alta resolucao. A 
seguir, escolhe-se a cor de fundo. 

Depots que a tela e preenchida com 
a cor de sua preferencia, chega-se ao me- 
nu principal de opcoes. Tanto neste co- 
mo no programa anterior, seleciona-se 
o item desejado pressionando-se as se- 
tas do teclado ate que o video cqmece 
a piscar. Entao, pressiona-se <CR> ou 
< RETURN > . 

Para desenhar linhas de qualquer ta- 
manho e em qualquer posicao faca a Op- 
cao "TRA<pAR LINHAS" (isso <S feito 
da maneira usual), Posicione entao o 
cursor em uma das extremidades da li- 
nha que voce deseja. Pressione a barra 
de espacos. VocS ouvira um bip e um 
ponto aparecera na tela. Mova o cursor 
ate a outra extremidade da linha e acio- 
414 ne novamente a barra de espacos. Sua 




linha sera tracada no mesmo instante. 

Se voce quiser desenhar em outras co- 
res, pressione uma das teclas de a 7. 
Cada uma delas Ihe oferece a cor cor- 
responded cuja tabela voce encontrara 
no seu manual. Nesse momento, voce 
notara que a questao das cores nao e 
muito simples. Existem varias interacoes 
que ocorrem entre as cores prbximas, 
Assim, nem sempre a cor escolhida apa- 
recera adequadamente na tela, Logo, nc 
entanto, voce aprendera a contornar es- 
se problems. 

Outra opcao disponivel e "APA- 
GA", que limpa a tela em uso, dando 
a voce a possibilidade de escolher uma 
nova cor de fundo. 

O menu principal oferece nove alter- 
nativas, mas apenas algumas delas es- 
tao disponiveis no momento. A primei- 
ra ("NOVA TELA") leva voce de vol- 
ta ao inicio do programa, permitindo 
que se refacam as opcoes. Note que a 
tela escolhida sera apagada. 

As cinco opcoes seguintes dizem res- 
peito a possibilidade de desenhar. Por 
enquanto, porem, apenas "DESE- 
NHAR" e "TRACAR LINHAS" estao 
a sua disposicao. A opcao "DESE- 
NHAR" funciona da seguinte forma: ao 
ser feha a escolha do item, ele ficara pis- 
cando; pressione <CR> ou < RE- 
TURN > ; imediatamente, a tela grafi- 
ca sera colocada a sua disposicao, com 
o cursor posicionado em seu centro. O 
cursor pode ser movimentado pela tela 
usando-se as teclas I, J, M, K, U, N, ', 
',0. Para comecar a desenhar, pressio- 
ne a barra de espacos. Voce" ouvira um 
bip e o cursor desaparecera, A partir 
desse momento, todo o trajeto percor- 
rido ficara marcado na tela. Para parar 
de desenhar e ter o cursor de volta, te- 
cle novamente a barra de espacos. 

Para voltar ao menu principal, pres- 
sione mais uma vez o comando < CR> . 

A opcao "MUDAR DE TELA" exi- 
ge um cuidado especial. So e possivel de- 
senhar na tela escolhida no inicio do 
programa. Assim, essa opcao permite 
apenas que voce de uma olhada na ou- 
tra tela, que nao esta sen do usada. De- 
pois de seleciona-la, escolha uma das al- 
ternativas de desenho, A outra tela Ibe 
sera entao mostrada; nao se esqueca, 
porem, de que nao e possivel desenhar 
sobre ela. Para retornar a tela original, 
tecle <CR> e selecione novamente 
"MUDAR DE TELA". 

Finalmente, aprenda a sair do pro- 
grama, tedando <ESC> quando esti- 
ver no menu principal. 

10 ONERR GOTO 9000 
20 PI - 4 * ATN (1) 

30 DIM CLS(7) .OPS (8) 



40 FOR I - Q TO 7: READ CLS(U 
: NEXT 

50 FOR I - TO 8: READ OPS (I) 
: NEXT 

60 TEXT : HOME : PRINT "Eacolh 
a a pagina de alta reaolucao:" 
70 VTAB 6r INPUT 'Pagina? (1 o 
u 2) ";PG 

80 IF PG < > 1 AND PG < > 2 
THEN 60 

90 HOME ! PRINT "Eacolha a cor 
de fundo : * 
100 VTAB 10: FOR I - TO 7 : H 
TAB 8: PRINT CL${I): NEXT 
110 I - 0:LM - PG * B192 
120 FLASH : UTAB 10 + I : HTAB 
6: PRINT SPC{ 2):CLS(Ui SPC ( 

1) : 

130 GET AS" IF AS - CHRS (13) 

THEN 210 
140 IF AS < > CHRS (8) AND A 
$ < > CHRS (21) THEN 130 
150 NORMAL ! VTAB 10 + I: HTAB 

6: PRINT SPC4 2);CL$(I); SPC C 

2) ; 
160 IF A$ - CHRS (8) THEN 190 

170 IF I - 7 THEN I » 0: GOTO 

120 

180 I - I + 1: GOTO 120 

190 IF I = THEN 1=7: GOTO 

120 

200 I - I - 1: GOTO 120 

210 IF PG - 1 THEN HGR : GOTO 

230 
220 HGR2 

230 NORMAL : POKE - 16304,0: 
POKE - 16302,0: POKE - 16301 
+ PG,0: POKE - 16297,0: HCOLOR 
- I: HPLOT 0,0: CALL 62454 :X - 
100 :Y - X: HCOLOR" 3 
240 OP - 

250 FOR I - 1 TO 200: NEXT : T 
EXT : HOME 

260 PRINT "Escolha a sua opcao 
, ft 

270 VTAB 10: FOR I - TO 8 : H 
TAB 8: PRINT OPS(I): NEXT 
2R0 SPS ■* * m 
290 FLASH : VTAB 10 + OP : HTAB 

6: PRINT SPS; OPS (OP) J" * I 
300 GET AS: IF AS = CHRS (13) 

THEN NORMAL i GOTO 390 
310 IF AS - CHRS (27) THEN N 
ORMAL : HOME i END 
320 IF AS < > CHRS (8) AND A 
S < > CHRS (21) THEN 300 
330 NORMAL : HTAB 6: PRINT SPS 
jOPS(OP) iSPS; 
340 IF AS - CHRS (8) THEN 370 

350 IF OP - 8 THEN OP - : GOT 

290 

360 OP - OP + 1: GOTO 290 

370 IF OP - THEN OP - 8: GOT 

290 

380 OP - OP - 1; GOTO 290 

390 POKE - 16301 + PG , : POKE 

- 16304, OiAA - 
400 ON OP + 1 GOTO 60,2000,300 
0,3000,3000,40 00.5000.6000,7000 

1000 XI = X:Y1 = Y 
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1010 GET AS 

1020 IF AS > "0" AND AS < "7" 

THEN HCOLOH= VAL (AS) '. GOTO 1 

010 

1030 IF A3 - CHRS 1 1 .1 J THEN 

POKE M.ME: TEXT : GOTO 290 

1040 IF AS - "I" THEN Y - Yl - 

2 
1050 IF AS - "M" THEN Y - Yl + 

2 
1060 IF AS - "J" THEN X = XI - 

2 
1070 IF A$ - "K" THEN X - XI + 

2 
1080 IF AS ■ "0" THEN X ■ XI + 

1:Y = Yl - 1 
1090 IF AS - "U" THEN X - XI - 

1:Y • Yl - 1 
1100 IF AS - "N" THEN X » XI 

1:1 = Yl + 1 
1110 IF AS - ".' THEN X - XI + 

1 : Y = Yl + 1 
1120 RETURN 

1500 IF M < > THEN POKE M, 
ME 
1520 L - INT (Y / 64) :C - INT 

CY / 8) - {8 * INT (Y / 64)) : 
T - Y - (8 * INT {Y / 8)) 

1530 M = LM + (L * 40} + (C * 1 

28) + (T * 1024) 

1540 M - M + ( INT (X / 7)) 

1550 ME = PEEK (M) 

1560 POKE M,255 - 2 " (X - (I 

NT (X / 7) * 7)) 

1570 RETURN 

2000 IF AA ■* THEN GOSUB 150 



2010 GOSUB 1000: IF AS * " " T 

HEN AA - ABS (AA - 1) : IF AA - 

1 THEN POKE M.ME 
2020 IF AA - 1 THEN HPLOT X,Y 

TO XI, Yl 
2030 GOTO 2000 
3000 CI ■= 

3010 GOSUB 1500: GOSUB 1000: I 
F AS < > CHRS (32) THEN GOTO 

3010 
3020 POKE M.ME 

3030 CI - CI + 1:PX(CI) - X : PY { 
CI) - ¥: PRINT CHRS I?) 5 HPLO 
T X.Y:M = 

3040 IF CI < > 2 THEN 3010 
3050 ON OP - 1 GOTO 3060,3 70, 
3080 

3060 HPLOT PXU).PY(l) TO PX{2 
) ,PY(2) :M - 0: GOTO 3000 
3070 PRINT CHRS (7) ; : PRINT 
CHRS (7):: GOTO 3000: REM ROTI 
NA NAO DISPONIVEL 
3080 PRINT CHRS £7) : : PRINT 
CHRS (7);: GOTO 3000- REM ROTT* 
NA NAO DISPONIVEL 
4000 PRINT CHRS (7) ; : PRINT 
CHRS {?);: GOTO 250: REM ROTIN 
A NAO DISPONIVEL 

5000 IF PG = 1 THEN HGR : GOT 
O 5020 
5010 HGR2 

5020 TEXT : GOTO 80 
6000 PG = INT (PG - ( - 1 * PG 
)) : GOTO 250 

7000 PRINT CHRS (7) ; : PRINT 
CHRS (7):: GOTO 250: REM ROTIN 



A NAO DISPONIVEL 

9000 IF PEEK (222) - 53 THEN 

X ■ XI :Y - Yl: PRINT CHR$ (7); 

: RESUME 

9010 PRINT CHRS (7) : : GOTO 25 



10000 DATA PRETO 1, VERDE, VIOL 

ETA,BRANCO,PRETO 2 . LARANJA. AZUL 

.BRANCO 2 

10010 DATA NOVA TELA, DESENHAR 

, TRACAR LINHAS . RETANGULO , CIRCUL 

O.ELIPSE.APAGA.MUDAR DE TELA.GR 

AVAR/CARREGAR 



O programs comeca perguntando 
que cor de fundo voce deseja. Respon- 
da com um mimero de a 15. A corres- 
pondencia de cores est a no manual do 
seu micro, Em seguida, a tela grafica de 
alia resolucao sera colocada a sua vis- 
ta, mostrando no rodape as opcoes dis- 
ponfveis. Elas sao doze. No entanto, 
apenas algumas estao disponiveis no 
rnomento. As outras serao apresentadas 
no proximo artigo. 

[nicialmente, temos Desenhar, que 
permite tracar linhas em qualquer dire- 
cao na tela. Selecione a opcao colocan- 
do o quadrado sobre a abreviatura Des 
e tecle < RETURN > . Voce vera entao 
o pequeno cursor na tela. Ele pode ser 
movimentado com as setas do teclado. 
Pressione a barra de espacos no ponto 
em que quiser comecar a desenhar: pa- 
ra onde quer que voce rnovimente o cur- 
sor ele deucara um trilho marcado na cor 
de sua escolha. 

Mas, como escolher a cor? E facil: 
basta teclar, quando dentro de um mo- 
dulo de desenho, uma tecla entre O e E, 
como se fosse uma numeracao hexade- 
cimal. Ou seja, os niimeros de at£ 9 
funcionam normalmente; para escolher 
cores que tenham codigo de 1 1 a 15, use 
as letras de A a E. Para sair desse mo- 
dulo e escolher outra coisa, pressione 
novamente < RETURN > ; voce obtera, 
assim, controle sobre o quadrado das 
opcoes. 

A opcao Pintar tern o efeito do co- 
rnando PAINT do BASIC. Ela preenche- 
ra uma figura com a cor que estiver sen- 
do usada. Deve-se tomar o cuidado de 
usar a mesma cor da periferia da figura 
para que o computador nao estrague o 
seu desenho. Outra coisa importante e 
que a figura deve ser totalmente fecha- 
da; senao, o computador pintara toda a 
tela com a cor de sua preferencia. 

XXX provoca o apagamento total e 
definitive do desenho, Portanto, tenha 
cuidado: se voce pressionar < RE- 
TURN > com o quadrado sobre essa 
opcao, o programa retornara ao inicio 
e apagara tudo o que foi desenhado. 



10 X-100:Y-100:CO-15 
20 PI=4*ATNtD 
30 SCREEN0: COLOR 15,4.4 
40 CLS: LOCATE 5 . 5 : PRINT"Eacolha 
a. cor de fundo da pdaina grdf 
ica (0 a 15) : " 

50 INPUT CL:IF CL>15 OR CL<0 TH 
EN PRINT-Valor l 1 egal i " : GOTO 50 
60 COLOR15,CL.CLr5CREEN2:OP-l 
70 OPEN"GRP: "FOR OUTPUT AS #1 
80 PSET(8, 166) ,0 
90 PRINTil." Apa Dea Lin Re 
t Cai Cir":PSET(8,176) ,0:PRIN 
T*l," Dia Ell Pin XXX" 
100 CLOSE 

110 GOSUB390:LINE <C , L) - (C+24 . L 
+9) ,15,B 

120 AS=INKEYS:IFAS-""THEN120 
1 30 GOSUB390 

140 TFAS-CHRS !13)THEN200 
150 LINE (C,L)-{C+24,L+9) , CL , B 
160 TFAS="CHRS<29)THENOP-OP-l:IF 
OP<1THENOP-10 

17 I FA$=CHR$ ( 28 ) THEN0P=0P+1 : IF 
OP>10THENOP-1 
180 GOTO 110 
190 AA=0 

200 ON OP GOTO 480,44 0,480,480, 
4 80.480,480,600,740, 7 70 
210 X1-X:Y1-Y 

220 AS-INKEY$:IFA$="-THEN220 
230 IFAS>"0"ANDA$<"9"THENCO-VAL 

(AS) 

240 IFA5>"A"ANDA$<"E"THENCO=ASC 

(AS) -55 

250 IFA$=CHRS ( 30) THENY-Y1- 1 

260 IFAS=CHRS<31)THENY=Y1+1 

270 IFAS=CHHS<28)THENX-X1+1 

280 IFAS=CHRS(29)THENX=X1-1 

290 IFAS=CHBS(13)THENGOTO110 

300 RETURN 

310 IFM>QTHENVPOKEBASE(12)+M+Yl 

M0D8 . ME : VPOKEBASE (11) +M+Y1M0D8 , 

MF 

320 MX=INT(X/8) :MY=INT(Y/8) 

3 30 M=M7*3?+MX:M=M*8 

340 ME=VPEEK(BASEU2)+W+YMOD8) 

350 MF-VPEEK(BASE(ll)+M+YMOD8) 

360 VPOKE BASE(12)+M+YMOD8,2- (7 

-XMOD8) 

370 VPOKE BASE(11)+M+YM0D8, (4+( 

CL=4) )*16 

380 RETURN 

390 iFOP<7THENC-(OP*5)*8ELSEC-( 

0P-6)*5*8 

400 C-C-26 

410 IFOP<7THENL-164ELSE L-174:P 

SETtC.L) ,0 

4 20 RETURN 
430 GOTO 200 

440 IFAA=0THENGOSUB310 

450 GOSUB210:IFAS=" "THENAA-ABS 

(AA-1) 

460 IFAA-1THENLINE (X , Y) - (XI . Yl) 

.CO 

47 GOTO440 

480 GOTO 110 

600 GOTO 110 

740 GOSUB310:GOSUB210 : IFASOCHR 

S(32)THEN740 

750 PAINT (X, Y) .CO 

760 GOTO 740 

770 GOTO 30 
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PROGRAMACAO DE JOGOS 

Grandes jogadores de baralho (quando programados para isso), 
os computadores na"o trapaceiam nem se cansam de jogar. 

aplicacOes 

Incorpore rotinas especiais ao seu programs CAD e tire o m^ximo 
proveito da sofisticacao que elas proporcionam. 

PROGRAMACAO BASIC 

Calcule a velocidade de um corpo que cai, aplicando algumas funcoes 
matem^ticas em sua programacao BASIC. 




